Ответы на вопрос:
Program a_1; uses crt; var i,n,sum: integer; begin write('введите n '); readln(n); i: =0; sum: =0; repeat i: =i+1; sum: =sum+i; until i=n; writeln('сумма чисел от 1 до ',n,' равна ',sum); end. program b_2; uses crt; var i,n,sum: integer; begin write('введите n '); readln(n); i: =0; sum: =0; repeat i: =i+1; sum: =sum+i*i; until i=n; writeln('сумма квадратов чисел от 1 до ',n,' равна ',sum); end. program v_3; uses crt; var i,n,sum: integer; begin write('введите n '); readln(n); i: =0; sum: =0; repeat i: =i+1; if (i mod 2 = 0) then sum: =sum+i; until i=n; writeln('сумма чётных чисел в диапазоне от 1 до ',n,' равна ',sum); end. program g_4; uses crt; var i,n,sum: integer; begin i: =9; sum: =0; repeat i: =i+1; sum: =sum+i; until i=99; writeln('сумма всех двузначных чисел равна ',sum); end.
Популярно: Информатика
-
alinakiseleva1223.12.2021 10:32
-
Shkodinka17.05.2021 12:41
-
Erumbumbum30.06.2020 16:39
-
ekaterinahbjdnxКатя09.03.2023 22:09
-
MILAVASSILYEVA21.02.2021 07:06
-
Ytbjfdg11.12.2021 09:44
-
ogbondarenko10.02.2023 23:06
-
MrWolf124406.05.2021 18:44
-
rmandzinDhsha15.02.2021 07:33
-
loxsanya201720.02.2020 09:32