Ответы на вопрос:
Var i,sum: integer; begin sum: =0; repeat readln(i); if (i mod 6 = 0) or (i mod 11 = 0) then sum: =sum+i; until(i< > 0); write(sum); end.
Популярно: Информатика
-
Знайти суму перших n членів арифметичної прогресії {an}, якщо...
alekss8419.02.2022 02:27 -
В информатике вообще не бум-бум,но это задание вроде простое ,если...
FullDown13.05.2021 03:37 -
4. Який з фрагментів введення елементів одновимірного масиву правильний?...
кристина142323.06.2021 08:58 -
От чего зависит круг решаемых исполнителя компьютер...
max50chepil09.10.2020 03:57 -
Вулкан он красный, горячий извергается , пылает , спасаются страх...
Zay456526.11.2021 23:26 -
Четыре приятеля- миша,коля, саша и дима проживают на следующих...
Zein30401.07.2021 10:09 -
Ребята , сложите мини- произвидение на тему Актуальность вопроса...
anickeeva201304.08.2022 20:58 -
Вычислите необходимый объем видеопамяти для графического режима,...
cosovanovcostya18.09.2021 02:41 -
4. Письменно ответьте на вопросы: 1. Сколько цветов распознает...
Dffgvfh16.08.2022 17:23 -
Целочисленное деление можно выразить функцией * a%b a//b abs(a+b)...
alisakiseleva221.03.2021 06:40