Помогите написать программу,** паскале,заранее спасибо,очень нужно

Question

Помогите написать программу,на паскале,заранее спасибо,очень нужно

---

Answer 1

Program n20_2;
var a, s:integer;
begin;
repeat    
readln(a);
if (a mod 2 = 0) and (a>15) and (a<190) then s+=a;<br>until a = 0;
write(s);
end.

Comments

Спасибо огромное))

---

Можно вопрос? Что такое repeat( не проходили такого)

---

Типа повторить?

---

Ещё. untill,что это?

---

Repeat/until - цикл, который повторяется пока выполняется условие, но в отличие от while он всегда выполняется хотя бы один раз. Если вы это не проходили, лучше заменить его на это:

---

program n20_2;
var a, s:integer;
begin;
readln(a);
while a<>0 do begin;
readln(a);
if (a mod 2 = 0) and (a>15) and (a<190) then s+=a;<br>end;
write(s);
end.

---

А там разве If должен быть?

---

Спасибо

---

If нужен, чтобы проверить, принадлежит ли число интервалу и является ли оно чётным.

---

Ой, только что заметил, что программа должна выводить 'net', если нет чётных чисел, принадлежащих интервалу. Замени "write(s)" на "if s>0 then write(s) else write('net');"