Вывести на экран в pascal ABC с помощью цикла (ТРИ РАЗНЫЕ ЗАДАЧИ): 12345 1234 123 12 1 54321 4321 321 21 1 54321 5432 543 54 5

Вывести на экран в pascal ABC с помощью цикла (ТРИ РАЗНЫЕ ЗАДАЧИ): 12345 1234 123 12 1 54321 4321 321 21 1 54321 5432 543 54 5
Гость
Ответ(ы) на вопрос:
Гость
program n1; var a,b:integer; begin a:=12345; writeln(a); for b:=1 to 4 do begin    writeln (a div 10);   a:=a div 10; end; end. program n2; var a,b,c:integer; begin b:=54321; c:=10000; writeln(b); for a:=1 to 4 do begin writeln(b mod c); c:=c div 10; end; end. program n3; var b,a:integer; begin a:=54321; writeln(a); for b:=1 to 4 do begin  writeln(a div 10); a:=a div 10; end; end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы