var sum, i: integer; begin sum := 0; for i := 1 to 100 do sum := sum + i; writeln('Сумма всех чисел от 1 до 100: ', sum); end.
№2
var p, i: integer; begin p := 1; for i := 1 to 10 do p := p * i; writeln('Произведение всех чисел от 1 до 10: ', p); end.
№3
У вас не дано никаких условий. Вот задача для условия: "Членов прогрессии - 100, шаг - 3"
var A, i, k, max: integer; begin i := 3; max := 100; for k := 1 to max do begin A := A + i;write( A, ' '); end; end.
№4
var sum, x: real; a: array[1..10] of real; i: integer; begin sum := 0; for i := 1 to 10 do begin write('Введите ', i, ' число: '); readln(a[i]); sum := sum + a[i]; end;
Var f: array[1..10] of integer; i,suma,sumb:integer; begin randomize; for i:=1 to 10 do begin f[i]:=random(10)+10; write(f[i],' '); end; suma:=0; sumb:=0; for i:= 1 to 10 do if f[i] mod 2 = 0 then suma:=suma+f[i]; else sumb:sumb+f[i]; writeln('Сумма четных: ',suma); writeln('Сумма нечетных: ',sumb); end.
var f: array[1..8] of integer; i,k,sumb:integer; begin randomize; for i:=1 to 8 do begin f[i]:=random(10)+10; write(f[i],' '); end; k:=0; sumb:=0; for i:= 1 to 8 do if f[i] mod 2 = 0 then k:=k+1; else sumb:sumb+f[i]; writeln('Количество четных: ',k); writeln('Сумма нечетных: ',sumb); end.
16) 85400
17) 5178 15876
25)
10 4301623
56 4301669
86 4301699
88 4301701
94 4301707