Составить программу для нахождения цифр четырехзначного числа Program n_221; var a, b, c, d
Составить программу для нахождения цифр четырехзначного числа
Program n_221;
var a, b, c, d, abcd: longint;
что дальше??? Помогите плиз
Гость
Ответ(ы) на вопрос:
Гость Var a,n : integer;
begin
readln(a);
while a > 0 do
begin
n:= a mod 10;
a:= a div 10;
writeln(n)
end;
end.
Не нашли ответ?
Похожие вопросы