1.дано целое число а. определить количество цифр в числе, которые больше 6.pascal

NoZeX1 NoZeX1    3   13.06.2019 09:40    1

Ответы
acre5422какаха acre5422какаха  10.07.2020 13:22
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика