Информатика Б
1.) Даны три целых числа. Вычислить корень квадратный из четных чисел и возвести в 3 степень нечетные числа.
2.) Ввести числа с диапазона 5..9. Вывести их значения двумя языками.

Все задания выполнить в программе Паскаль. В отчет включить код программы и результаты работы.

121

428

Посмотреть ответы 1

Ответы на вопрос:

qwead23p08iwf

Информатика

4,4(80 оценок)

Var a,b,c,max,min: longint; begin read (a,b,c); if ((a> b) and (a> c)) then max: =a else if ((b> a) and (b> c)) then max: =b else if ((c> b) and (c> a)) then max: =c; if ((a< b) and (a< c)) then min: =a else if ((b< a) and (b< c)) then min: =b else if ((c< b) and (c< a)) then min: =c; write (min,' ',max); end.