Регистрация
Войти
Стать экспертом Правила
Информатика

Напишите, пожалуйста, программу, которая выводит на экран цифры натурального числа, каждую на новой строчке(Используя цикл с заданным условием окончания работы).

ОТВЕТЫ

program z1;

var a: integer;

begin

write ('a = ');

readln(a);

repeat

writeln (a mod 10);

a:=a div 10

until a = 0

end.

307
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам