18>26 (нет) 18>10(да) а:=18*3=54 а:=54+10=64
ответ 64
Var y: integer;
begin
write('Введите трехзначное числo: y = ');
readln(y);
writeln('Число x = ',y mod 100 div 10,y div 100,y mod 10)
end.
21 22 1
9 12 3
2 7 5 10 8 13 11
Две задачи в одной - в приложении к ответам.
1. Числа уменьшаются сначала на 1, потом на 2:
25 24 22 21 19 18 16 15 13 12 10 9 7 6 4 3 1 0.
2. Числа увеличиваются на нечётные:
1 4 9 16 (+9) 25 (+11) 36 (+13) 49 (+15) 74.