Напишите процедуру которая выводит на экран в столбик все цифры переданного ей числа начиная с первого. ПАСКАЛЬ.
anikeevae
2
09.02.2021 20:29
14
Другие вопросы по теме Информатика
Matthew0500
12.02.2021 19:26
Магомед05111
12.02.2021 19:25
любаня20
11.04.2021 13:24
lebedkova81
11.04.2021 13:24
fietisov
07.11.2019 20:04
Lizarainbowhi
07.11.2019 20:04
олеся791
05.07.2019 03:10
Доминика671554
29.10.2019 09:57
crystall5555
29.10.2019 10:02
nyarokhno
29.10.2019 10:02
Популярные вопросы
- 5 ( ). Спростіть вираз a +4/ 3а - 12× 192/a2 + 4а - 4a/ a-4...
1 - Номер 4.там на рисунке показано упражнение !!...
2 - Réponds aux questions. 1. Où est-ce que le cours a-t-il lieu ? 2. Pourquoi...
1 - 1 Электронная формула внешнего электронного слоя атома химического элемента...
3 - ПИТАННЯ: 8/2 Укажіть три правильні відповіді щодо географічного положення...
2 - Чого навчають і які якості виховують у нас твори А. Ліндґрен, К. Нестлінґер?...
3 - Make up and write down three sentences with be allowed, let and make....
2 - 5. Заполните таблицу. Химическое соединение Определ.вещество/реактив Наблюдаемое...
2 - 9. Где находилось доказательство, что жемчужное ожерелье фальшивое? а....
3 - Корунд минералының (AI2 O3 ) салыстырмалы молекулалық массасын табыңыз....
2
var a,b,c: integer ;
begin
writeln ('Введите число:');
read (a);
b:=0;
while a>0 do begin
b:=b*10;
b:=b + (a mod 10);
a:=a div 10;
end;
while b>0 do begin
c:=b mod 10;
b:=b div 10;
writeln (c, ' ');
end;
end.