Предмет: Информатика,
автор: john11
Дано натуральное число.найти количество цифр данного числа больших b(b вводится с клавиатуры)
Ответы
Автор ответа:
0
Паскаль:
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.
Похожие вопросы
Предмет: История,
автор: asliddin200207
Предмет: География,
автор: polinaiva88
Предмет: Математика,
автор: tania9291
Предмет: Геометрия,
автор: ksushka98
Предмет: Математика,
автор: ПоЛиНкО2002