Program freeDig; uses crt; var a, b, c:Integer; begin a:=0; for b:=1 to 3 do begin Write('Введите число номер ', b, ': '); Readln(c); if c mod 2 = 0 then if c>50 then a:=a+c; end; Write('Сумма четных чисел, больших 50, равна ', a); readln end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
