Составить программу для нахождения цифр четырехзначного числа Program n_221; var a, b, c,...

Question

Составить программу для нахождения цифр четырехзначного числа
Program n_221;
var a, b, c, d, abcd: longint;
что дальше??? Помогите плиз

Comments

это обязательное начало программы?

---

Нет. Это уже я сделала, а дальше хз как(

Answer 1

Var a,n : integer;
begin
readln(a); 
 while a > 0 do 
 begin 
n:= a mod 10; 
a:= a div 10;
writeln(n) 
end;
end.

Comments

а не я не правильно прочёл условие час исправлю

---

всё