30 ! ! измените программу так чтобы вместо if было case program arifmetik; var a,b,c: real; z: char; begin writeln ('введи первое число'); read (a); writeln ('введи второе число'); read (b); writeln ('введи значок операции'); read (z); if z='+' then c: =a+b; if z='-' then c: =a-b; if z='*' then c: =a*b; if (z='/') and (b< > 0) then c: =a/b; if (z='/') and (b=0) then writeln ('деление невозможно) else writeln (a: 0: 2,z,b: 0: 2,'=',(: 0: 2); end.
var
a,b,c:real;
Z:char;
begin
Writeln ('Введи первое число'); Readln (a);
Writeln ('Введи второе число'); Readln (b);
Writeln ('Введи значок операции'); Readln (z);
case z of
'+': c:=a+b;
'-': c:=a-b;
'*': c:=a*b;
end;
if z='/' then
if b<>0 then c:=a/b
else Writeln ('Деление невозможно')
else Writeln(a:0:2,z,b:0:2,'=',c:0:2);
end.