Ответы на вопрос:
program zadacha2;
uses crt;
var i,n,a: integer;
b,y,c,l: real;
begin
clrscr;
readln(n);
a: =1;
b: =2;
c: =5;
for i: =1 to n do
begin
if a mod 2 = 0 then
l: =a+b/c
else
l: =a-b/c;
a: =a+1;
b: =b+2;
c: =c+5;
y: =y+l;
end;
writeln(y: 2: 2);
readkey;
end.
первую по подробней расспишите
Популярно: Информатика
-
05971vitaznadez23.06.2023 09:23
-
ярослававас29.08.2022 02:16
-
Сашулёноксовёнок24.11.2020 13:59
-
grrra112.02.2022 05:32
-
kyzminlexa0607.02.2023 23:56
-
melnushyk09902.01.2021 00:10
-
матеки04.01.2022 07:35
-
фывапрпиол28.11.2021 23:59
-
1FreeMad110.10.2021 07:14
-
BlueEyesCatОоак21.11.2021 05:46