Я так полагаю вы про оптимизацию.
Задача 1.
Var
A:integer;
S:real;
Begin
S:=0;
For A:= 120 to 300 do
S:=S+A;
WriteLn('S = ',S);
End.
Результат работы программы:
S = 38010
<span>Задача 2.
Var S:real;
n,A:integer;
Begin
n:=0;
S:=0;
For A:= 15 to 100 do
if A mod 10 = 6 then
Begin
S:=S+A;
n:=n+1
End;
WriteLn('Sr = ',S,'/',n,' = ',S/n);
End.</span>
Ответ:
1
Объяснение:
х<3, но при этом х<2, значит х=1
Да, правильный ответ:4)шишка
(1/a+1/24)*8=1
8/a+8/24=1
8/a+1/3=1
8/a=1-1/3
8/a=2/3
8/a=8/12
a=12