Вывести на экран в pascal ABC с помощью цикла (ТРИ РАЗНЫЕ ЗАДАЧИ): 12345 1234 123 12 1 54321
Вывести на экран в 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.
Не нашли ответ?
Похожие вопросы