25 ! с паскалем,! 1.выведите все двузначные числа,в записи которых все цифры одинаковые 2.выведите все двузначные числа,в записи которых все цифры одинаковы,суммы которых кратны произведению.
1. var i :integer; begin for i:=10 to 99 do if (i mod 10) = (i div 10) then write(i,' '); writeln; end. 2. Условие 2 задачи непонятно. Что чему должно быть кратно?
var i :integer;
begin
for i:=10 to 99 do
if (i mod 10) = (i div 10) then write(i,' ');
writeln;
end.
2. Условие 2 задачи непонятно. Что чему должно быть кратно?