Вячеслав
СП
Серега Пирогов
var
a, b, c, y: real;
begin
write('a b c? ');
readln(a, b, c);
if c <> 0 then begin
y := a + b / c + b;
writeln('y: ', y:0:2);
end
else
writeln('деление на ноль');
end.
Похожие вопросы