Все целые положительные числа меньше 700 кратные 5 и не кратные 3 паскаль
Nkpr
2
01.06.2019 08:00
0
Другие вопросы по теме Информатика
ggg2223333
20.10.2020 13:04
covepoxamu
11.06.2019 06:40
daklochkov
07.04.2021 19:18
catikis
05.07.2019 16:50
Катя092006
05.07.2019 16:50
ЮляLoveYou
30.07.2019 23:10
laktionovapolyp0cghd
30.07.2019 23:10
89286163503
30.07.2019 23:10
Георгий0015
30.07.2019 23:10
Популярные вопросы
- Расчитайте массу 3*10(вверху 26) атомов цинка...
2 - Решите уравнение: пять шестых x=125...
3 - Найдите значение выражения 5^5 * 2^8 /10^4...
3 - Найти наибольшее натуральное решение неравенства k≤ 568+80×(205×906-124885)÷400...
3 - Сочинение на тему: над чем заставил меня задуматься рассказ кавказский...
1 - 1) почему со второй половины 1930-х гг. изменились основные направления...
1 - Сходственные стороны в подобных треугольниках относятся как 13:...
2 - Периметр равнобедренного ∆ abc =64 см. основание на 8см меньше боковой...
2 - Найдите значение х если: 1) -х= -12; 2) )=1.6...
1 - Варифметической прогрессии а 6=6; d=11 найдите а9...
1
var i,s:integer;
begin
s:=0;
for i:=1 to 700 do
begin
if (i mod 5 = 0) and not(i mod 3 = 0) then s:=s+1;
end;
writeln(s);
end.