Ответы на вопрос:
Program test; vara,b,c,d: real; beginreadln(a,b,c,d); if (a> 0) and (b> 0) and (c> 0) and (d> 0) thenwriteln((a/b)*(c/d)); end.вводим a,b,c,d с клавиатуры. процедуру можешь сам включить сюда, там не сложно.
Популярно: Информатика
-
2shIk13.12.2022 17:45
-
elena1alekseevna15.12.2022 23:22
-
Анджелика1024.04.2021 07:10
-
saule1961122524.11.2020 21:11
-
Mariyazh22.08.2020 14:50
-
MariMQ06.04.2022 17:41
-
leila32316.06.2021 16:35
-
Саша2004150904.01.2023 21:37
-
kotizm02.01.2022 12:22
-
Yulchan2327.09.2020 02:14