Вывести на экран в pascal abc с цикла (три разные ): 12345 1234 123 12 1 54321 4321 321 21 1 54321 5432 543 54 5

kazah5676446 kazah5676446    1   21.07.2019 11:00    1

Ответы
daniilnv2 daniilnv2  03.10.2020 09:33
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика