Venakken
5 год назад
Даю 30 поинтов! Срочно!Измените программу так чтобы вместо IF было CASEProgram ARIFMETIK;var a,b,c:real;Z:char;beginwriteln ('Введи первое число'); 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.
ОТВЕТЫ
Harris Erick
Oct 24, 2020
program ARIFMETIK;
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.
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.
309
Смежные вопросы:
