В а - количество проходов по циклу (а=2; 2*2=4 - четырёхзначное число Х)
в b - сумма двух пар цифр числа Х (x mod 100 - выделение двух последних цифр из Х)
a=2 b=17
17-9=8 ответ max X=9800
// Написать программу: Гречу, массой х г, рассыпают по пакетам: по а г в каждый.
//Пакетов может быть неограниченное количество. Сколько гречи будет в
//последнем заполненном пакете?
var x,a : longword;
begin
writeln ('Введите общую массу гречи, в граммах');
readln (x);
writeln ('Введите массу насыпаемой в пакет гречи, в граммах');
readln (a);
writeln ('полных пакетов будет ',(x div a));
if (x mod a)=0 then writeln ('В последнем насыпанном пакете будет ',a,' грамм гречи')
else writeln ('В последнем насыпанном пакете будет ',(x mod a),' грамм гречи');
<span>end.</span>
DIM i AS INTEGER, s AS LONG
FOR i = 20 TO 40
s = s + i ^ 3
NEXT
PRINT "Сумма всех кубов от 20 до 40 = ";s
Модеи: - 172 - м, 174 - о, 164 - д, 165 - е, 168 - и.