Ответы на вопрос:
Var i,k: integer; begin k: =0; for i: =300 to 1000 do begin if (i mod 3=0) and (i mod 5=0) then begin k: =k+1; end; end; writeln(k); end.
Популярно: Информатика
-
Определите url-адрес сайта, название которого переводится с : кратко...
zhenya454623.11.2021 08:19 -
Перевидите целые числа из десятичной системы счисления в восьмеричную:...
aminochka151624.06.2022 04:43 -
Логические операции по информатике, нужно сделать таблицу...
Arslanisyan30.05.2020 03:32 -
Наша страна россия находится в северном или в южном полушарии...
nicita13254769p06wrf17.05.2020 19:26 -
Опишіть спільне і відмінне між електронною поштою та звичайною....
ева52014.05.2020 14:58 -
Visual Basic. В зависимости от номера месяца вывести: зима, лето, осень,...
aptemacko28.04.2021 13:17 -
Сетевое устройство, реализующее контроль за поступающей в локальную сеть...
sobennikovaox01.12.2021 04:29 -
2.Берілген сөйлемдіі сөйлем мүшесіне талда Айтыс өлеңдеріндегі мақал-мәтелдер...
fantomac71805.10.2021 21:03 -
Решите уравнение: 4 cos^2 x – 12 sin x + 3 = 0...
Мейдей26.06.2021 01:08 -
Реши примеры на время. 1. 6800 : 170 + 60 ⋅ 120 = 2. 420 : 30 – 760 : 190...
лорглролрл27.04.2021 11:09