Регистрация
irinacheprasova
27.02.2023 16:35
Информатика
Есть ответ 👍

НУЖНА ПОСТРОИТЬ ТАБЛИЦЫ

200
457
Посмотреть ответы 1

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

yoanna0900
yoanna0900
4,8(1 оценок)

var m,k: integer;

begin

readln(m);

k: =round(sqrt(m));

while m mod sqr(k) < > 0 do k: =k-1;

writeln(k*k);

end.

пример:

180

36

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