Помогити плииииз:3Даю 40 балов Напишите программу, которая в последовательности целых...

Question

Помогити плииииз:3Даю 40 балов Напишите программу, которая в последовательности целых чисел находит сумму чётных чисел в диапазоне от 5 до 25. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность).

Comments

Какой требуется язык?

---

английский

---

...программирования...

---

паскаль

Answer 1

Program n1;
var a,sum: integer;
begin
sum:=0;
readln(a);
while a<>0 do begin
if (a>=5) and (a<=25) and (a mod 2=0) then sum:=sum+a;<br>readln(a);
end;
writeln(sum);
end.

Comments

можешь еще решить задачек которые я выложу?Тоже столько же балов:3

---

Дам 98 балов:3https://znanija.com/task/31445165

Answer 2

Программа и результат её выполнения на скриншотах.

---

---

Comments

Просто на будущее - есть цикл с постусловием (чтобы не писать два раза readln):repeat {блок операторов} until {условие};

---

Спасибо) Просто у нас все строго. И если я буду так писать то получу 2)

---

Подумают что списала

---

У Вас есть железный аргумент - самообразование)

---

Ну у меня школа с углубленным изучением информатики. Думаю не прокатит)