Помогите пожалуйста, кто в программировании соображает???Нужна программа!!!!!! Задание: "Организовать ввод последовательности чисел до тех пор, пока не введен 0. Найти сумму всех четных введенных".
Var A:integer; S:real; Begin S:=0; Repeat Read(A); if A mod 2 = 0 then S:=S+A; Until A=0; Write(S); End.
спасибо большое,а это точно верно?
Если прога на Паскале нужна, то да
да, огромное Вам спасибо!!!