понедельник, 30 ноября 2015 г.

Задание на 7 декабря и для 8б 9 декабря


1
Вычислить сумму чисел от 1 до 8
S:=0;
for i:=1 to 8 do S:=S+i;
2
Вычисл произвед  чис от 1до 8
p:=1;
for i:=1 to 8 do p:=p*i;
3
Вычисл суммы  четных чис от 1 до 8
S:=0; for i:=1 to 8 do if i mod 2 =0 then S:=S+i;
4

Вычисл суммы  нечетных чис от 1 до 8
S:=0; for i:=1 to 8 do if i mod 2 =1 then S:=S+i;
5
Вычисл произвед  четных чис от 1 до 8
p:=1; for i:=1 to 8 do if i mod 2 =0 then p:=p*i;
6
Вычисл произвед  кратных 3  чис от 1 до 8
p:=1; for i:=1 to 8 do if i mod 3 =0 then p:=p* i;
7
Вычисл количества  чис  кратных 5 от 1 до 8
for i :=1 to 8 do if i mod 5 = 0 then k:=k+1;
8
Выч суммы четных чисел и отдельно нечетных  от 1 до 8
for i:=1 to 8 do if i mod 2 = 0 then S1:=S1+i
                                               else S2:=S2+i;
9
Вычисление кол-ва  и суммы нечетных   чисел от 1 до 8 чисел
for i :=1 to 8 do
if i mod 2 = 1 then begin
         k:=k+1
         S:=S+i;
                               end;
10
Вычис количества четных и отдельно количества нечетных  чисел и  их произведение от 1 до 8
for i :=1 to 8 do
if i mod 2 = 0 then k:=k+1
                  else begin
                         n:=n+1;
                         p:=p* i;
                         end;



Комментариев нет:

Отправить комментарий