Ответы на вопрос:
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. может так? проверь
Популярно: Информатика
-
Маслинка17417.02.2020 00:08
-
123296030.04.2021 10:41
-
2156kolllokir14.05.2022 17:47
-
esalinder2207.09.2021 06:34
-
midman17.01.2023 13:29
-
Юлианна24511.03.2023 05:52
-
temka3298405.09.2020 11:35
-
метал318.04.2022 05:45
-
ilchumakovsky101.03.2020 17:09
-
almaz10813.07.2021 14:11