Написать программу,которая вычисляет сумму первых n-натуральных чисел. должны быть операции while и do
114
293
Ответы на вопрос:
Var i,n,s: integer; begin write('n='); read(n); s: =0; i: =1; while i< =n do begin s: =s+i; i: =i+1 end; writeln('сумма равна ',s) end. пример n=10 сумма равна 55
Var a,b: integer; begin readln (a,b); if a> b then for a: =a-1 downto b+1 do writeln (a) else for a: =a+1 to b-1 do writeln (a); end.
Популярно: Информатика
-
АнтонХабаров12.06.2023 20:05
-
гулллллл24.09.2022 00:53
-
23вопрос427.08.2020 08:46
-
Мур695402.01.2020 07:17
-
Gamoo10.05.2020 22:31
-
Ersultan1921.02.2021 02:43
-
у2цциволв115.05.2021 10:15
-
andriu1225207.03.2022 19:08
-
Yana0505007.09.2020 17:26
-
даниил92118.11.2020 13:25