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

While12. Дано целое число $$N$$ ($$> 1$$). Вывести наибольшее из целых чисел $$K$$, для которых сумма $$1 + 2 + … + K$$ будет меньше или равна $$N$$, и саму эту сумму.

Решение:

program While12;
var
  N,K,Temp :Integer;
begin
  Write('Введите N: ');
  Readln(N);
  K:=0;
  Temp:=0;
  while not(Temp+K+1>N) do
  begin
   inc(K,1);
   Temp:=Temp+K;
  end;
  Writeln(K);
  Writeln(temp);
end.

program While12;

var

N,K,Temp :Integer;

begin

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

Readln(N);

K:=0;

Temp:=0;

while not(Temp+K+1>N) do

begin

inc(K,1);

Temp:=Temp+K;

end;

Writeln(K);

Writeln(temp);

end.

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

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

uses PT4;
var
  N,K,Temp :Integer;
begin
  
  Task('While12');
  Readln(N);
  K:=0;
  Temp:=0;
  while Temp<=N do
  begin
   Temp:=Temp+K;
   inc(K,1);
  end;
  Writeln(K-2, Temp-K+1);
end.

uses PT4;

var

N,K,Temp :Integer;

begin

Task('While12');

Readln(N);

K:=0;

Temp:=0;

while Temp<=N do

begin

Temp:=Temp+K;

inc(K,1);

end;

Writeln(K-2, Temp-K+1);

end.

Ответить

Anton

19.12.2014 в 17:26

поправил своё решение тоже .
Было:

while Temp<N do

1

while Temp<N do

стало:

while not(Temp>N) do

1

while not(Temp>N) do

Ответить
olegst1975

10.12.2015 в 16:26

Решение Antona 14 строка меняем на

Writeln(K-1); Writeln(temp-k);

1
2

Writeln(K-1);
Writeln(temp-k);

Ответить
- Anton
  
  10.12.2015 в 20:10
  
  Не так не круто..
  Было:
  
  while not(Temp>N) do
  
  1
  
  while not(Temp>N) do
  
  Стало:
  
  while not(Temp+K>N) do
  
  1
  
  while not(Temp+K>N) do
  
  Ответить

я

12.10.2019 в 21:11

var
n,s:real;
k:integer;
begin
readln (n);
s:=0;
k:=0;
while s=n then break;
inc(k,1);
writeln (‘ число ‘,k);
s:=s+k;
writeln (‘ сумма ‘,s);
end;
writeln (‘k=’,k-1,’ s=’,s-k);
end.

Ответить

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

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

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

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