Регистрация
veronichkastan123
23.02.2021 16:31
Информатика
Есть ответ 👍

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

PASCAL ABC

ВНИМАНИЕ!!!!!!! РЕШИТЬ ЧЕРЕЗ ЦИКЛЫ WHILE, REPEAT или FOR

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

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

valeracat186
valeracat186
4,5(51 оценок)

var

 n, s: Integer;

begin

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

  Read (n);

  s := trunc (sqrt (n));

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

  Readln;

end;

Объяснение:

eandrukova567
eandrukova567
4,4(41 оценок)
1. с сообщениями можно работать через web интерфейс - быстрый доступ когда нужно но, ограниченный функционал и тормознутость интерфейса 2. через протоколы pop imap - полный функционал, но нужно на каждое устройство ставить и настраивать клиентскую программу. 3. через сервер exchange. одни достоинства, но это только для корпоративной почты.

Популярно: Информатика