Program p1;
uses crt;
var a,b,p:integer;
begin
read(a,b);
p:=a*b;
If P= 100 then
write('Да, равно 5')
else write('Нет, неравно 5');
end.
Что надо сделать???!!!???!!!
В а - количество проходов по циклу (а=2; 2*2=4 - четырёхзначное число Х)
в b - сумма двух пар цифр числа Х (x mod 100 - выделение двух последних цифр из Х)
a=2 b=17
17-9=8 ответ max X=9800