Цитата:
Сообщение от Zhovtyi
Привет технари! Прошу помощи в написании 2х программ, вот задания:
|
Да уж... задачи века! Что, детинушка, совсем по нулям? А тут сессия, как на зло... Понимаю. Ну что же - ловите:
Код:
Var
Code:Byte;
Begin
Write('Code = ');
Readln(Code);
Writeln('Symbol: ',Chr(Code));
Readln;
End.
Код:
Var
A,B,R:real;
Op:byte;
Begin
Write('A= ');
Readln(A);
Write('B= ');
Readln(B);
Write('Operation? (1 - "+", 2 - "-", 3 - "*", 4 - "/") ');
Readln(Op);
Case Op of
1: R:=A+B;
2: R:=A-B;
3: R:=A*B;
4: R:=A/B;
end;
Writeln('Result = ',R:0:5);
Readln;
End.