Память - это и есть самый первый инструмент хранения информации
Var
n, p, i: integer;
begin
readln(n);
i:=1;
p:=3;
while true do
if i<=n then
begin
i:=i+p;
p:=p+2;
end
else
begin
write(i);
exit;
end;
<span>end.</span>
50 мінус 10 буде 40
50 плюс 40 буде 90
90 поділити на 3 буде 30
в одному ящику 30 деталей
Собака продукты апельсин сено икра банан облако