подсчитать сумму чисел
// фам1
var s,i: integer;
begin
s:=0; for i:= -15 to 15 do s:= s+i;
writeln('i=',i,' s=',s);
end.
|
1 |
Вычисл сумму чисел от -8 до 8 |
S:=0; for
i:=-8 to 8 do S:=S+i; |
|
2 |
Вычисл произвед чис от -8до 8 |
p:=1; for
i:=-8 to 8 do p:=p*i; |
|
3 |
Вычисл суммы четных чис от -8 до 8 |
S:=0; for
i:=-8 to 8 do if i
mod 2 =0 then S:=S+i; |
|
4
|
Вычисл суммы нечетных чис от -8 до 8 |
S:=0; for
i:=-8 to 8 do if i
mod 2 =1 then S:=S+i; |
|
5 |
Вычисл произвед четных чис от -8 до 8 |
p:=1; for
i:=-8 to 8 do if i
mod 2 =0 then p:=p*i; |
|
6 |
Вычисл произвед кратных 3
чис от -8 до 8 |
p:=1; for
i:=-8 to 8 do if i
mod 3 =0 then p:=p* i; |
|
7 |
Вычисл количества чис
кратных 5 от -8 до 8 |
for i
:=-8 to 8 do if i mod
5 = 0 then k:=k+1; |
|
8 |
Выч суммы четных чисел и кратных 9 от -8 до 8 |
for i:=-8 to 8 do if (i mod 2 = 0) and (i mod 9 = 0) then S1:=S1+i ; |
|
9 |
Вычисление кол-ва и суммы нечетных чисел от -8 до 8 чисел |
for i
:=-8 to 8 do if i mod
2 = 1 then begin k:=k+1 S:=S+i; end; |
|
10 |
Вычис количества четных и отдельно
количества нечетных чисел и их произведение от -8 до 8 |
for i
:=-8 to 8 do if i mod
2 = 0 then k:=k+1 else begin n:=n+1; p:=p* i; end; |