Введите семизначное натуральное число. Выведите все его цифры в прямом порядке на экран. Использовать циклический
алгоритм. Пример: 1234567. Цифры: 1,2,3,4,5,6,7.
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
Епистимия
Var i, a, b, c:integer;
begin
write ('Введите семизначное натуральное число: ') ;
readln (a) ;
c:=1000000;
write ('Цифры: ') ;
while a>a mod 10 do begin
b:=a div c;
a:=a mod c;
c:=c div 10;
write (b,', ')
end;
write (a,'.')
end.
begin
write ('Введите семизначное натуральное число: ') ;
readln (a) ;
c:=1000000;
write ('Цифры: ') ;
while a>a mod 10 do begin
b:=a div c;
a:=a mod c;
c:=c div 10;
write (b,', ')
end;
write (a,'.')
end.
Новые вопросы в разделе Информатика
s3129502@gmail.com
16.02.2024, 13:53
Информатика
7-9 класс
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
