Aurihuginn
5 год назад
Составьте пожалуйста программу на Паскале (2). Только правильно!
ОТВЕТЫ
Ян
Oct 24, 2020
var b, y:real;
begin
writeln("введите B);
readln(b)
if b < 0 then y := sqr(3 * b + 1);
else y = y:=sqrt(b);
writeln(b);
end.
begin
writeln("введите B);
readln(b)
if b < 0 then y := sqr(3 * b + 1);
else y = y:=sqrt(b);
writeln(b);
end.
461
Смежные вопросы:
