Составить программу вывода всех цифр заданного пятизначного числа.
Ответы на вопрос
Ответил RomanBotan
0
Var a:integer;
Begin
Read (a);
While a>=0 do
begin
write (a mod 10);
a:=a div 10;
End;
End.
PS Работает не только с пятизначным, но и со всеми числами
Begin
Read (a);
While a>=0 do
begin
write (a mod 10);
a:=a div 10;
End;
End.
PS Работает не только с пятизначным, но и со всеми числами
Новые вопросы