Ответы на вопрос:
1. var s,i: integer; begin s: =0; for i: =1 to 1000 do if (i mod 5< > 0)and (i mod 7 < > 0) then s: =s+1; writeln(s); readln; end.
Популярно: Информатика
-
даю 10. не могууу решть...
rassvet112323.03.2020 04:02 -
Доступ к файлу name.txt, находящемуся на сервере articles.info,...
manje26.09.2021 14:17 -
Сколько цифр в системе счисления с основанием 1234?...
Dizelshop21.04.2022 10:59 -
Прочитать стихотворения Ф. М.Тютчева,написать небольшое рассуждение...
Diana200425004.10.2022 23:37 -
Построете график функции у=2x²+4x-4...
Никита2022024.08.2021 19:55 -
нужно напишіть рівняння реакцій за до яких можно здійснити перетворення...
Кобра22832214.10.2022 07:36 -
Ex.3 p.96 .Tina is from Miami and Jake is from Brighton. Listen...
valeriy3fors03.02.2021 15:26 -
Один конец отрезка находится в точке M с координатами (10;40),...
lakras18.11.2020 11:17 -
В треугольнике авс угол с равен 90 градусов, сн высота аб=50,...
У4КГРВ27.12.2021 08:58 -
Яку назву мають спороносні колоски хвощів та плаунів??? А....
12345653320.08.2021 16:24