Var
i, sum: integer;
begin
sum := 0;
for i := 23 to 49 do if (i mod 7 = 0) and (i mod 2 = 0) then sum := sum + i;
writeln(sum);
end.
Ответ: 18
Обоснование:
Var a,b,c : Integer;
Begin
a:=1257; c:=0;
while a>0 do begin
if a mod 2<>0 then b:=a mod 10; c:=c+b;
a:=a div 10; end;
Writeln(c);
end.
Физика-5+4+4+5=18:4=4,5
Химия-3+4+3+4=14:4=3,5
Алгебра-4+4+3+4=15:4=3,75
Геометрия-4+3+3+3=13:4=3,25
Если надо округлять:
Физика:5
Химия:4
Алгебра:4
Геометрия:3