Выделение квадрата

@dragonoffire007 · Регистрация: 11.04.2013

5. (Выделение квадрата.) Для заданного целого m≥1 вычислить k – наибольшее целое, при котором m делится на k² без остатка.

@Puporev · 08.09.2013, 14:46

Pascal

var m,k:integer;
begin
repeat
write('m>1 m=');
readln(m);
until m>1;
k:=round(sqrt(m));
while m mod (k*k)<>0 do
k:=k-1;
write('k=',k);
readln
end.

@dragonoffire007 1 / 1 / 1 Регистрация: 11.04.2013 Сообщений: 17
		1
	Выделение квадрата 08.09.2013, 12:35. Показов 1762. Ответов 1 Метки нет (Все метки) 5. (Выделение квадрата.) Для заданного целого m≥1 вычислить k – наибольшее целое, при котором m делится на k² без остатка. 0

	08.09.2013, 14:46

Решение