Вопрос, который вызвал трудности
Дано число n. a) напечатать те натуральные числа, квадрат которых не превышает n. (программа Паскаль)
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
a) program z1;
uses crt;
var i, n: integer;
begin
read (n);
i:=1;
while sqr(i) < n do
begin writeln (i); i:=i+1; end;
end.
b) program z1;
uses crt;
var i,n:integer;
begin
read (n);
i:=1;
while sqr(i)<n do i:=i+1;
writeln(i);
end.
uses crt;
var i, n: integer;
begin
read (n);
i:=1;
while sqr(i) < n do
begin writeln (i); i:=i+1; end;
end.
b) program z1;
uses crt;
var i,n:integer;
begin
read (n);
i:=1;
while sqr(i)<n do i:=i+1;
writeln(i);
end.