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

Question

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

Comments

Давай условие

---

Ща

---

Проверьте, есть ли среди данных N чисел нули.Входные данныеВводится число N, а затем N чисел.Выходные данныеВыведите YES, если среди введенных чисел есть хотя бы один нуль, или NO в противном случае.

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.

Comments

Давай.

---

Входные данные
Вводятся целые числа a и b. Гарантируется, что a не превосходит b.

Выходные данные
Выведите все числа на отрезке от a до b, являющиеся полными квадратами. Если таких чисел нет, то ничего выводить не нужно.

---

Ага, сейчас минутку.

---

var a, b, i: longint;
begin
read(a,b);
for i:= trunc(sqrt(a)+1-1e-9) to trunc(sqrt(b)) do
writeln(i*i);
end.

---

Должна работать.

---

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

---

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

---

Ну смотри.

---

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

---

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