Предмет: Информатика,
автор: vasobrodyga
вводится два числа. определить кратна ли 5 их сумма
Ответы
Автор ответа:
0
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.
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.
Автор ответа:
0
Это что было?
Автор ответа:
0
Спам?
Интересные вопросы
Предмет: Английский язык,
автор: hahol1238
Предмет: Математика,
автор: glebkabushko
Предмет: Математика,
автор: kanapinamakpal667
Предмет: Химия,
автор: Маха99