Составить программы, используя цикл с предусловием и цикл с постусловием

@kilqew · Регистрация: 13.06.2019

Author24 — интернет-сервис помощи студентам

Дано целое число N (> 0). Найти наибольшее целое число K,квадрат которого не превосходит N: 𝐾 2 ≤ N. Функцию
извлечения квадратного корня не использовать.

@Puporev · 13.06.2019, 15:29

Pascal

var n,k:integer;
begin
write('n=');
readln(n);
//цикл с предусловием
k:=0;
while sqr(k+1)<=n do inc(k);
writeln(k);
//цикл с постусловием
k:=0;
repeat
inc(k);
until sqr(k+1)>n;
writeln(k);
end.

@kilqew 0 / 0 / 0 Регистрация: 13.06.2019 Сообщений: 9
		1
	Составить программы, используя цикл с предусловием и цикл с постусловием 13.06.2019, 15:19. Показов 1489. Ответов 1 Метки нет (Все метки) Дано целое число N (> 0). Найти наибольшее целое число K,квадрат которого не превосходит N: 𝐾 2 ≤ N. Функцию извлечения квадратного корня не использовать. 0

	13.06.2019, 15:29