Решаем задачи Абрамян на Паскале. While8

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

Решение:

program While8;

var

N,k :Integer;

begin

Write('Введите N: ');

Readln(N);

K:=1;

while Sqr(K)<=N do inc(K,1);

Writeln(K-1);

end.

Другие задачи из раздела While можно посмотреть здесь.

Комментарии 2

Кирилл

18.12.2014 в 00:56

Так будет верно

Delphi/Pascal

uses PT4; var n,k:integer; begin Task('While8'); read(n); k:=0; while sqr(k)<= n do inc(k,1); write(k-1); end.

1
2
3
4
5
6
7
8
9
10
11
12
13

uses PT4;
var n,k:integer;

begin
  Task('While8');
read(n);
k:=0;

while sqr(k)<= n do

      inc(k,1);
write(k-1);
end.

Ответить
- Anton
  
  19.12.2014 в 17:13
  
  Поправил…
  было
  
  while Sqr(K)<N do inc(K,1);
  
  1
  
  while Sqr(K)<N do inc(K,1);
  
  Стало
  
  while Sqr(K)<=N do inc(K,1);
  
  1
  
  while Sqr(K)<=N do inc(K,1);
  
  Ответить

Решаем задачи Абрамян на Паскале. While8

Комментарии:

Комментарии 2

Добавить комментарий Отменить ответ