Запись оставлена Гость 18.01.2017 в 22:09
запустить | скачать | новая запись
- var
- Num: real;
- Oper: integer;
- Rez: real;
- begin
- write('Введите число: ');
- readln(Num);
- write('Введите номер операции: 1 - модуль, 2 - корень, 3 - квадрат');
- readln(Oper);
- case Oper of
- 1: Rez := abs(Num);
- 2: Rez := sqrt(Num);
- 3: Rez := sqr(Num);
- else writeln('Введен некоректный номер операции');
- end;
- writeln('Результат: ',Rez);
- end.
Отправка исправлений и поправок. (cоздать новую запись)
После отправки поправок вы сможете посмотреть различия между старой и новой записью.