PASCAL ABC Напишите программу, которая получает с клавиатуры натуральное число и вычисляет целый квадратный корень из него – наибольшее число, квадрат которого не больше данного числа.

ВНИМАНИЕ!!! НЕОБХОДИМО РЕШИТЬ ЧЕРЕЗ ЦИКЛ С ПОСТУСЛОВИЕМ, ОТВЕТ ТИПА

var

n, s: Integer;

begin

Write ('Введите натуральное число: ');

Read (n);

s := trunc (sqrt (n));

Writeln ('Целый квадратный корень из ' + IntToStr (n) + ' = ' + IntToStr (s));

Readln;

end;

ПРИНИМАТЬСЯ НЕ БУДЕТ

153

212

Посмотреть ответы 2

Ответы на вопрос:

koren27

Информатика

4,5(83 оценок)

поситай на 169 стр

Объяснение:

lisyono525

Информатика

4,7(36 оценок)

150 000+ пользователей

Оформить подписку