Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

If (a[i]>=1) and (a[i]<=1000) and (a[i] mod 3 = 0) and (a[i] mod 5 = 0) then
writeln  a[i];