Составить программу которая вызначает сколько складаемых должно быть в сумме 1+2+3+4+...,...

Question

Составить программу которая вызначает сколько складаемых должно быть в сумме 1+2+3+4+..., чтобы сумма оказалась больше чем задуманное число n . 25 баллов. Pascal ABC

Answer 1

Program primer; 
var a, s, n: integer;
begin
writeln("введите число");
readln(n);
a:=1;
while s > n do 
begin
s:= s + a;
a:=a+1;
end;
writeln(a);
end.

может так? проверь

Comments

Нет , эта программа всё время 1 пишет

---

program primer;
var a, s, n: integer;
begin
writeln("введите число");
readln(n);
while s > n do
begin
s:= s + a;
a:=a+1;
end;
writeln(a);
end.

---

попробуй так

---

А теперь пишет 0

---

ахах)

---

блин рядом нет паскаля

---

Давай тогда вместе подумаем

---

Если я пишу -9 то вводится 65537

---

го вк

---

vk.c om /den_mulyukov