Var sum,I,n : integer; begin sum : = 0; for i := 1 to 5 do begin readln(n); if (n mod 10 = 4) and (n mod 2 = 0) then sum := sum + i; end; writeln (sum); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
