Опубликовано 08.03.2018 по предмету Информатика от Гость

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

Ответ оставил Гуру

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;
until a = 0;
write(s);
end.

Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.