Напишите процедуру, которая выводит на экран в столбик все цифры переданного ей числа, начиная с последней (PascalABC)
Напишите процедуру, которая выводит на экран в столбик все цифры переданного ей числа, начиная с последней (PascalABC)
Гость
Ответ(ы) на вопрос:
Гостьbegin
var a: integer;
readln(a);
foreach c: char in a.ToString().Reverse() do writeln(c);
end.
Гостьprocedure vivod(var n:integer);
var
x:integer;
begin
repeat
x:=n mod 10;
writeln(x);
n:=n div 10;
until n=0;
end;
Не нашли ответ?
Похожие вопросы