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

Question

Информатика

Маргусейн

6 января, 23:54

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

+4

Ответы (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.