Есть ответ 👍

Это нужно сделать в ПИТОНЕ, НЕ В ПАСКАЛЕ! 1.Дано целое число N (> 0). Найти наименьшее целое положительное число K, квадрат которого превосходит N: K2 > N. Функцию извлечения квадратного корня не использовать.
2.Дано целое число N (> 0). Найти наибольшее целое число K, квадрат которого не превосходит N: K2 ≤ N. Функцию извлечения квадратного корня не использовать.

265
371
Посмотреть ответы 1

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

texet1024
4,6(39 оценок)

Program zn2; uses crt; var s1, s2, s3: real; r1, r2: integer; begin clrscr; repeat write ('enter r1, r2: '); readln (r1, r2); until (r1> =1) and (r2< =100); s1: =pi*sqr(r1); s2: =pi*sqr(r2); s3: =s1-s2; writeln ('s1=', s1: 0: 3); writeln ('s2=', s2: 0: 3); writeln ('s3=', s3: 0: 3); readkey; end.

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