Решите через программу паскаль На вход поступают - вопрос №11500601 от гена81 24.03.2021 15:12

Question

Информатика: Решите через программу паскаль На вход поступают положительные и отрицательные числа. Ввод осуществляется до тех пор, пока не будет введен нуль. Найти сумму всех четных чисел, введенных с клавиатуры

гена81 · Answer

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....