Написать программы на языке программирования Паскаль. 1) Компьютер запрашивает радиус круга и сторону квадрата. Надо определить, равные ли у них площади (ответ должен иметь вид: «Площади равные»). Если площади не равные, то выводится площадь меньшей фигуры.
2) Составить программу, которая запрашивает ввод температуры тела человека и определяет, здоров он или болен (здоров при 36 < t < 37)?
3) Числа Близнецы. Два нечетных простых числа, разнящиеся на два, называются Близнецами (5 и 7, 11 и 13, 17 и 19…). Составить программу, которая определяет, являются ли два введенных простых числа близнецами.
210
281
Ответы на вопрос:
Var y,n: integer; x: real; begin n: =1; write('x= '); readln(x); write('y= '); readln(y); while x < y do begin inc(n); x: =x*1.1; end; writeln(n); end.
Популярно: Информатика
-
miras3910.05.2020 19:35
-
albina2406198007.05.2020 14:55
-
utochkins0403.08.2022 05:38
-
greenxp25.01.2022 15:43
-
стеллаа29.03.2021 22:20
-
dinara16929.03.2020 01:22
-
valeriyanikiti26.06.2023 11:39
-
sarmat148220.05.2020 11:07
-
Дашулька15050412.04.2020 15:27
-
DmdmdmA12.11.2021 02:34