Войти Регистрация Спроси ai-bota

Найти сумму положительных четных чисел, больших 150 и меньших 200 pascal

Ответ:

Vitaliy11111111

04.10.2020 06:56

Var i,s:integer;
begin
s:=0;
for i:=150 to 200 do
if i mod 2=0 then s:=s+i;
writeln(s);
end.

0,0(0 оценок)

Популярные вопросы: Информатика

Sanek27rus

11.12.2020 05:31

Склавиатуры вводятся три числа.найти и вывести на экран среднее арифметическое четных чисел....

mashtaleroksana

11.12.2020 05:31

Как написать программу для движения окружности(вниз и вправо) в паскале ?...

иринка2807

14.11.2021 15:47

Напишите программу обработки 15 элементов массива заданных генератором случайных чисел ,по определению кол-во элементов меньше 10 25...

Zggzsbsnnzh

22.07.2021 22:55

Катя записала IP-адрес на листке бумаги и положила его в рюкзак. Катина сестра случайно постирала рюкзак вместе с запиской. После стирки Катя обнаружила в кармане четыре обрывка...

alina124561

26.11.2021 11:26

Решите с рисунком и отмеченными путями...

алек36

21.12.2022 15:44

На складе 64 стеллажа с товарами. На каждом – 16 полок. Известно, что нужентовар, который находится на 5 стеллаже на 7 полке сверху. Какое количество информации содержит данное сообщение?...

Delishte

24.08.2022 14:45

Как называется тип моделей созданные в программе скетч ап ?...

zzzzzaaaaatttttiiii

30.08.2020 15:25

Расставьте в правильном порядке этапы обработки документов в текстовом процессоре Word. 1.Ввод текста 2.Создание нового документа 3.Печать текстового документа 4.Редактирование текстового...

дагмгп

27.10.2022 01:21

Какие проверочные слова.стоял,шутка,лож,шапка,сук,кепка,щепка,сугроб клоп, ошибка,шил, хлеб...

hjr56

27.10.2022 01:21

Пишите в стандартном виде десятичной дроби написаны в разных формах20+3+0,2+0,07+0,008...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку