Question

ПОМОГИТЕ! •Паскаль!•

Написать программу и блок-схему к ней для нахождения среднеарифметического четырех нечетных кратных трем чисел

Answer 1

Ответ:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

var

s : real;

c, i : integer;

begin

s:=0;

c:=0;

for i:=10 to 99 do

 if (i mod 2 =1) and (i mod 3 =0) then begin

                                       s:=s+i;

                                       Inc(c);

                                       end;

s:=s/c;

Writeln(s);

end.

Объяснение: