Итерационные циклы: Увеличивать число в 2 раза, пока квадратный корень из числа не будет больше 10

@ilyagerasimov · Регистрация: 08.11.2012

Помогите решить)
Ввести число. Увеличивать его в 2 раза, пока квадратный корень из числа не будет больше 10. На печать выдать квадратный корень.

Kodzaev · 18.11.2012, 14:24

Pascal

Var
  n: Integer;
BEGIN
Write('Введите число: '); Readln(n);
While Sqrt(n)<=10 do
n:=n*2;
Writeln('Число ',n,' Корень = ',Sqrt(n):2:2);
Readln
END.

@ilyagerasimov 0 / 0 / 0 Регистрация: 08.11.2012 Сообщений: 9
		1
	Итерационные циклы: Увеличивать число в 2 раза, пока квадратный корень из числа не будет больше 10 18.11.2012, 12:30. Просмотров 963. Ответов 1 Метки нет (Все метки) Помогите решить) Ввести число. Увеличивать его в 2 раза, пока квадратный корень из числа не будет больше 10. На печать выдать квадратный корень. 0

Опции темы

Решение