Вальцов
5 год назад
Пожалуйста посчитайте написать программу,на паскале,заранее спасибо,очень нужно
ОТВЕТЫ
Данила
Oct 24, 2020
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.
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.
632
Смежные вопросы:
