Ответы
Ответ дал:
0
Var Y,a:real;
Begin
y:=0;
Write('a = ');ReadLn(a);
y:=8*a-3;
Write('c = ');ReadLn(c);
y:=4*c+y;
WriteLn('y = ',y)
End.
Begin
y:=0;
Write('a = ');ReadLn(a);
y:=8*a-3;
Write('c = ');ReadLn(c);
y:=4*c+y;
WriteLn('y = ',y)
End.
Вас заинтересует
2 года назад
7 лет назад
9 лет назад
10 лет назад