решить задачу.
По итогам экзаменов из 37 студентов оценку "отлично" по экономике получили 15 человек, по физике - 16, по психологии - 19, по экономике и физике - 7, по экономике и психологии - 9, по физике и психологии - 6. "Отлично" по всем трём предметам получили 4 студента. Сколько студентов получили хотя бы по одной оценке "отлично"?

хотя бы одна отлично = Ф+П+Э - ЭФ - ЭП - ФП + ФПЭ

хотя бы одна отлично = 16 + 19 + 7 - 7 - 9 - 6 + 4 = 24

если n это количество чисел, начинаем с 3

var

i,n,p: integer

begin

readln(n);

i: =3;

p: =1;

while i< =3*n do

begin

p: =p*i;

i: =i+3;

end;

writeln(p);

end.

если n это верхняя граница чисел

var

i,n,p: integer

begin

readln(n);

for i: =3 to n

if i mod 3 = 0 then

p: =p*i;

writeln(p);

end.

иванов - парикмахер

петров - плотник

сидоров - мельник

гришин - почтальон

алексеев маляр