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

Question

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


54321
4321
321
21
1

54321
5432
543
54
5

Comments

тремя разными циклами делать?

---

да

---

Так а 5ку за что ставить,если ты не понимаешь?

---

я правильно понял? три разных цикла это while , until , for ?

---

ну я не понимаю)

---

А как же ты хочешь 5ку,если ты не знаешь на 5?

---

Пожалуйста, помогите! У меня одна четверка только по информатике выходит

Answer 1

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.

Comments

а ты это имел в виду? только for

---

Конечно, если тебе не трудно)

---

подождёшь?

---

моя ошибка*

---

это плохо

---

vjz jib,rf

---

чёрт

---

я правильно понял? три разных цикла это while , until , for ?

---

Спасибо огромное!!!

---

Спасибо огромнейшее!!!!!!