Анна7 лет назад
program zz1;
var i:integer; //заводим переменную для цикла
begin
for i:=10 to 99 do //организуем перебор всех двухзначных чисел от десяти до 99
if i mod 15 = 0 then write(i,' '); // проверяем, если число делится на пятнадцать без остатка, то выводим это число на экран в строчку через пробел
end.