Регистрация
помогите1178
21.10.2021 19:32
Информатика
Есть ответ 👍

Написать программу в Pascal.

178
443
Посмотреть ответы 1

Ответы на вопрос:

bannikovegor
bannikovegor
4,6(77 оценок)
Var a,k: integer; begin write('a (> 0) = '); readln(a); k: =0; while a> 0 do   begin   k: =k+1;   a: =a div 10;   end; writeln('k = ',k); end. пример: a (> 0) = 180653k = 6

Популярно: Информатика