Program chik; const n=15; var P:array[1..15]of real; i:integer; s:real; begin s:=0; for i:=1 to n do begin read(p[i]); if(i mod 2=0)and(p[i]<0)then s:=s+p[i]; end; writeln(s); end. 2) program gt; uses crt,graphabc; const n=7; var mac1,mac2,mac3:array[1..15]of real; i,k1,k2:integer; begin k1:=0;k2:=0; for i:=1 to n do begin read(mac1[i]); if(mac1[i]>0)then begin Inc(k1); mac2[k1]:=mac1[i]; end; if(mac1[i]<0)then begin Inc(k2); mac3[k2]:=mac1[i]; end; end; for i:=1 to n do write(mac1[i],' '); writeln; for i:=1 to k1 do write(mac2[i],' '); writeln; for i:=1 to k2 do write(mac3[i],' '); end.
for i := 1 to n do begin s1 := s1 + i; s2 := s2 + sqr(i); if i mod 2 = 0 then s3 := s3 + i; end;
for i := 10 to 99 do s4 := s4 + i;
writeln('Сумма первых n натуральных чисел: ', s1); writeln('Сумма квадратов первых n натуральных чисел: ', s2); writeln('Сумма всех четных чисел: ', s3); writeln('Сумма всех двухзначных чисел: ', s4); end.
Код:
n = int(input("Введіть число: "))
print(sum(range(1, n+1))) # n+1 Если n включительно