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



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.

Оцени ответ
Не нашёл ответ?

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

Найти другие ответы

Загрузить картинку
© Задачки.net