Program qwerty; Var a,b,rez:real; Begin Write('Введите a и b: '); Readln(a,b); If b=0 Then writeln('Ошибка. На 0 делить нельзя') Else begin Rez:=3.45+7*a/2*b; Writeln('3.45+7a/2b=',rez); end; End.
begin Write('Введите a и b: '); Readln(a, b); if b = 0 then writeln('Ошибка. На 0 делить нельзя') else Writeln('3.45 + 7 * ', a, ' / (2 * ', b, ') = ', 3.45 + 7 * a / 2 * b); end.
Answers & Comments
Verified answer
Program qwerty;Var a,b,rez:real;
Begin
Write('Введите a и b: ');
Readln(a,b);
If b=0
Then writeln('Ошибка. На 0 делить нельзя')
Else begin Rez:=3.45+7*a/2*b;
Writeln('3.45+7a/2b=',rez);
end;
End.
a, b: real;
begin
Write('Введите a и b: ');
Readln(a, b);
if b = 0 then
writeln('Ошибка. На 0 делить нельзя')
else
Writeln('3.45 + 7 * ', a, ' / (2 * ', b, ') = ', 3.45 + 7 * a / 2 * b);
end.