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

Автор: Anton

Anton — Fri, 19 Dec 2014 13:13:34 +0000

Поправил…
было

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

Стало

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

Автор: Кирилл

Кирилл — Wed, 17 Dec 2014 20:56:40 +0000

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

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.