Написать программу pascal abc. написать программу которая по определенным числам a и b и введеному действию выполняет вычисление. программу надо сделать с оператором case m of. .
Var A,B:integer; Z:char; Begin Write('A = ');ReadLn(A); Write('B = ');ReadLn(B); WriteLn('Введите знак(+ , -, *, /)'); ReadLn(Z); Case Z of '+':WriteLn('A + B = ',A+B); '-':WriteLn('A - B = ',A-B); '*':WriteLn('A * B = ',A*B); '/':WriteLn('A / B = ',A/B); End; End.
A,B:integer;
Z:char;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
WriteLn('Введите знак(+ , -, *, /)');
ReadLn(Z);
Case Z of
'+':WriteLn('A + B = ',A+B);
'-':WriteLn('A - B = ',A-B);
'*':WriteLn('A * B = ',A*B);
'/':WriteLn('A / B = ',A/B);
End;
End.