Question

Даров ребят, помогите решить задачу для паскаля

Answer 1

var n,i,a,b,c,d:longint;beginreadln (n);for i:=1 to n dobeginread (c);if c=0 then b:=b+1;end;if b>0 then write ('YES') elsewrite ('NO');end.

Answer 2

Емае по легче можешь сделать?

Answer 3

Мы пока ток 8 кл, trunc и sqrt ещё не знаю

Answer 4

Ну смотри.

Answer 5

sqrt это корень квадратный, а trunc округление.

Answer 6

Ааааааааааа пасиб