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

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

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

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

Ljubov Kumanaeva
Нет , эта программка всё время 1 пишет
Людмила Кевшина
program primer; var a, s, n: integer;beginwriteln("введите число");readln(n);while s > n do begins:= s + a;a:=a+1;end;writeln(a);end.
Элина Корпаухова
пробуй так
Дмитрий Манох
А сейчас пишет 0
Vadim Podsevalov
ахах)
Anton
блин рядом нет паскаля
Регина Митронова
Давай тогда вкупе подумаем
Степа Махмерчун
Если я пишу -9 то вводится 65537
Полинка Раздеева
го вк
Bolshakov Vasilij
vk.c om /den_mulyukov
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт