Паскаль

Даны четыре целых числа. Найти сумму четных и нечетных чисел.

Question

Информатика

Васильюшка

2 декабря, 22:29

Паскаль

Даны четыре целых числа. Найти сумму четных и нечетных чисел.

+2

Ответы (1)

Знаете ответ?

Никаша · Answer 1

Var

a: array [1 ... 4] of integer;

i, sf, ss : integer;

begin

for i:=1 to 4 do

begin

a[i]: = random (50) + 1;

writeln (a[i]) ;

if a[i] mod 2 = 0 then sf:=sf+a[i] else

ss: = ss+a[i];

end;

writeln ('Сумма четных: ', sf, '; сумма нечетных: ', ss) ;

end.

ПаскальДаны четыре целых числа. Найти сумму четных и нечетных чисел.

Паскаль

Даны четыре целых числа. Найти сумму четных и нечетных чисел.