var i, a:longint;
begin
read(a);
for i:=1 to 1000 do
if (100 <= a * i) and (a * i <= 999) then
write(a * i, ' ')
end.
{$N+} (*Enable 287 soprocessor*)
var i:longint;
a:extended;
begin
read(a);
for i:=1 to 20 do write(i, ' ', a * i, ' Rub.', #13, #10);
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>
Ответ:Ахах, мы что должны по рисунку определять, какие он там команды удалил? Код программы скинь
Объяснение:
Колибри,голубь,стриж,ворон,попугай,курский турман,сова,снегирь,канарейка,воробей,соловей,галка
1) <span>если введенное значение не соответствует типу заданной переменной
2) введенное значение имеет слишком длинное значение (больше, чем указано в этом поле)
3) </span> <span>Нарушение ссылочной целостности
4) </span><span>Нарушение условий, которые обговариваются в Процедурах в поле или на форме (После обновления, выход, до обновления)</span>