Вводится два числа. определить кратна ли 5 их сумма

Question

Информатика

Валюша

6 апреля, 03:10

Вводится два числа. определить кратна ли 5 их сумма

+3

Ответы (1)

Знаете ответ на вопрос?

Клавдий · Answer 1

Const n=10;

Var b, c;

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

Begin

b:=0; c:=0;

For i: = 1 to n do

If a[i]>0 then b:=a[i]+b

else

inc (c) ;

Writeln (b,' ', c) ;

end.