Ответы
Ответ дал:
0
Var
m:integer;
Begin
Write('m = ');
ReadLn(m);
if m>= 4 then m:=m*m-8
else m:=m+2;
WriteLn('C = ',m)
End.
m:integer;
Begin
Write('m = ');
ReadLn(m);
if m>= 4 then m:=m*m-8
else m:=m+2;
WriteLn('C = ',m)
End.
Вас заинтересует
7 лет назад
7 лет назад
9 лет назад
10 лет назад