Информатика, 9 класс
Готов
Вопрос от 2414 дня назад
Составить программу в PASCAL ABC.Условия задачи:должно быть не больше 1000 и должно быть кратным 3.и должен оканчиваться на нуль
Ответ от
program pr1; var x:integer; begin for x:=0 to 1000 do if (x mod 3=0) and (x mod 10=0) then write(x, ', '); end.