Написать программу,которая запросит у пользователя два числа и одине из знаков : + - * / и выведет на экран результат соответствующего арифметического действия. Помогите пожалуйста.СРОЧНО
Answers & Comments
444ерор444
Program z1; var a,b:real; c:char; begin read(a,b,c); if c='+' then writeln(a+b) else if c='-' then writeln(a-b) else if c='*' then writeln(a*b) else if c='/' then writeln(a/b) else writeln('символ не арифметического действия'); end.
1 votes Thanks 0
yanakolomytsev
Спасибо) А что значит ('символ не арифметического действия')&
FraudGood
Это означает, если ты вводишь не один из этих знаков : + - / *, то символ не арифметического действия
FraudGood
Program ABC;var A,B,C:real;D:char;beginwrite ('Введите знак операции ');read (D);write ('Введите два числа ');read (A,B);case D of'+' : C:=A+B;'-' : C:=A-B;'*' : C:=A*B;'/' : C:=A/B;end;writeln (C);end.
1 votes Thanks 0
444ерор444
пссс, во первых снова привет, во вторых делай всегда с энтером, людям не удобно вот так видеть прогу
FraudGood
Я понял, я затупил, написал нерез shift+enter
yanakolomytsev
да,не особо удобно разбираться,но все равно спасибо
Answers & Comments
var a,b:real;
c:char;
begin
read(a,b,c);
if c='+' then writeln(a+b) else
if c='-' then writeln(a-b) else
if c='*' then writeln(a*b) else
if c='/' then writeln(a/b) else
writeln('символ не арифметического действия');
end.