Вывести все числа от 1 до 1000, которые: -- кратны 3 и 5

elinochka0707 elinochka0707    2   26.06.2019 01:00    0

Ответы
Акося3557 Акося3557  20.07.2020 23:55
Var a:integer;
begin
for a:=1000 downto 1 do begin
if (a mod 5 = 0) and (a mod 3 = 0)
then writeln(a);
end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика