Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
Объяснение:
Именно какую ни фото ни чего
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.
var
k: integer; begin
read(k);
case k of
1..2,12: write('зима');
3..5: write ('весна');
6..8 : write ('лето');
9..11: write ('осень');
end; end.
Популярные вопросы