Последние ! даны действительные числа a и b . если числа не равны, то большее увеличить в пять раз, а меньшее уменьшить на пять, в противном случае, если они положительные, то оставить их без изменения, если отрицательные , то возвести в квадрат
202
347
Ответы на вопрос:
Begin writeln('enter a number'); realdln(a); writeln('enter b number'); readln(b); if (a< > b) then begin a: =a*5; b: =b-5; end else begin if ((a< 0) and (b< 0)) begin a: =a*a; b: =b*b end; end; writeln(a, b); end.
Популярно: Информатика
-
artemazarenko19.08.2020 04:27
-
arianadorofeva04.01.2021 12:38
-
agarkovatanech06.02.2021 03:10
-
ПРИВЕТ174rus31.07.2020 14:05
-
тима42113.12.2021 00:18
-
aidafarhadova03.02.2020 11:05
-
MrCony24.02.2021 16:00
-
Диана14901810.01.2023 00:10
-
Niger0000rt12.02.2023 12:44
-
Катяhfhfyvdhvxd05.06.2022 13:44