Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Дано натуральное число.найти количество цифр данного числа больших b(b вводится с клавиатуры)

Ответ оставил Гость

Паскаль:

uses crt;
var
a, b, c, code,i, k : integer;
st: string;
begin
write (N = ); readln (a);
write (B =);readln (b);
str (a, st);
for i:= 1 to length (st) do begin
val (st[i],c, code);
if c>b then k:= k+1; end;
writeln (k);
readkey;
end.