Решите через программу паскаль
На вход поступают положительные и отрицательные числа. Ввод
осуществляется до тех пор, пока не будет введен нуль. Найти сумму всех
четных чисел, введенных с клавиатуры
НяхаВай
3
20.04.2020 00:16
0
Другие вопросы по теме Информатика
амина653
31.03.2019 02:40
Зефирка170504
27.04.2020 15:03
ukimui123
08.12.2020 03:50
VetaRo
08.12.2020 03:48
Милана3091
08.12.2020 03:47
shkolnik1233
10.08.2019 17:10
Dimafdj
29.12.2020 13:24
IrishkaLis
29.12.2020 13:24
vasili6513
29.12.2020 13:24
Популярные вопросы
- Типы реакций на примере свойств воды найдите массу глюкозы и объём кислорода...
3 - Составить текст из данных предложений, что-то я путаюсь. вот какая чудо-колокольня!...
3 - Прочитай стихотварение с слов каких чястей речи пожт рисует картину летнего...
3 - Сочинение музыкальное произведение щелкунчик...
3 - Ав каких городах россии есть ещё памятники петру 1...
3 - Вбольшой стеклянный сосуд поместить растение и закрыть стеклянной крышкой...
2 - Нужно. разложите многочлен на множители: 3x*(a+b) + y*(a+b) 15c*(a+b)...
2 - Имя князя, стоявшего во главе войска в куликовской битве. скажите . кроссворд...
3 - Вырази в указанных единицах измерения: 2 т 5 ц 7 кг = кг 5 км 9 м = дм...
1 - Витя и костя занимаются парусным спортом устно расшифруйте слова...
2
var a,s: integer;
begin
s:=0;
repeat
write('Введите число: ');
readln(a);
if (a mod 2 = 0) then s:=s+a;
until a=0;
writeln('Сумма всех четных чисел: ',s);
end.