Как это решать,пожалуйста распишите по действиям
var s, n: integer;
begin
s:=0; n:=1;
while sqr(s+2)<125 do
begin
n:=n*2;
s:=s+2;
end;
write(n)
end.
var s, n: integer;
begin
s:=0; n:=1;
while sqr(s+2)<125 do
begin
n:=n*2;
s:=s+2;
end;
write(n)
end.
More Questions From This User See All
Answers & Comments
Ответ:
var s, n: integer;
Мы обозначаем переменные целого типа
var s, n: integer;
начало программы
s:=0; n:=1;
присваиваем переменным значения
while sqr(s+2)<125 do
Цикл, пока корень квадратный s+2 < 125 - выполнять цикл
begin
начало цикла
n:=n*2;
умножаем n на 2
s:=s+2;
прибавляем к s 2
end;
конец цикла
write(n);
вывести n
end.
конец программы
Объяснение:
У Вас ошибка в 9ой строчке, пропустили точку с запятой.
var s, n: integer;
begin
s:=0; n:=1;
while sqr(s+2)<125 do
begin
n:=n*2;
s:=s+2;
end;
write(n);
end.