Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program naoborot;
uses crt;
var n,a,b: integer;
begin
clrscr;
write('введите натуральное число: ');
readln(x);
n: =x;
while n> =1 do
a: =n mod 10;
n: =n div 10;
b: =b*10+a;
end;
write('прочтение цифр числа справа налево: ',b)
end.
1. начало
2. оденься
3. выйти из дома
4. если есть машина
5.то сесть в машину
6. завести машину
7.начать путь следования по дороге
8.доехать до села
9. выйти из машины
иначе 10. дойти до остановки
11.дождаться автобуса
12. зайти в автобус
13. доехать до села
14. выйти из автобуса
15. конец
Популярные вопросы