1.Дано целое число А. Определить количество цифр в числе, которые больше 6.Pascal
1.Дано целое
число А. Определить количество цифр в числе, которые больше 6.Pascal
Гость
Ответ(ы) на вопрос:
Гостьvar
A, counter: integer;
begin
readln(A);
counter := 0;
repeat
if (A mod 10 > 6) then
inc(counter);
A := A div 10;
until (A = 0);
writeln(counter);
end.
Не нашли ответ?
Похожие вопросы