S = 27
к 0 прибавляется 7, затем 6, 5, 4, 3 ,2 = 27; то есть цикл выполняется до тех пор, пока а не станет равно 1
48•64=3072 всего символов
3072•8=24576 бит
24576÷8000=3.072 кб
program task31057170;
var
x: integer;
y: real;
begin
Writeln('ВВЕДИТЕ X: ');
Readln(x);
if x > 25 then
y := x / 2
else if x < 25 then
y := x + 4
else Writeln('Error: x = 25!');
Writeln('Y = ', y);
end.
Смотрим на предназначение переменных L и M:
L - счетчик того, сколько раз выполняется условие цикла (while x > 0). Т.к. в конце программы L становится равным 2, значит условие цикла (while x > 0) выполняется 2 раза.
M, судя по условию (if M < x mod 10) - максимальная цифра числа x, т.к. x mod 10 - это остаток от деления числа x на десять.
В конце цикла while x приравнивается x div 10; кроме того, после 2 проходов цикла, x стало равным 0. Это дает нам право считать, что начальное число x было двузначным.
Т.к. в конце программы M становится равным 8, значит максимальная цифра в числе x - это 8.
Значит изначально число x могло быть равно:
18
28
38
48
58
68
78
80
81
82
83
84
85
86
87
88
<span>Т.к. требуется наибольшее, то выбираем <u>88</u>.</span>