Составить программу, которая будет считывать введённое четырехзначное число. Каждую цифру этого числа необходимо вывести в новой строке

Question

Информатика

Барнес

14 ноября, 05:52

Составить программу, которая будет считывать введённое четырехзначное число. Каждую цифру этого числа необходимо вывести в новой строке

+3

Ответы (1)

Знаете ответ?

Шумахер · Answer 1

Var a, f:integer;

begin

write ('Введите четырехзначное число: ') ;

readln (a) ;

f:=a div 1000;

writeln (f) ;

a:=a-1000*f;

f:=a div 100;

writeln (f) ;

a:=a-100*f;

f:=a div 10;

writeln (f) ;

a:=a-10*f;

writeln (a) ;

end.