1.вычисление значения выражения у=(2х+3)/(4-х) 2. нахождение произведения нечётных чисел от 1 до к
101
420
Ответы на вопрос:
Var x,y: real; begin read(x); y: =(2*x)/(4-x); writeln('y=',y); end. вторая var k,i,p: integer; begin p: =1; read(k); for i: =1 to k do if i mod 2=1 then p: =p*i; writeln( 'p=',p); end.
Популярно: Информатика
-
kristavikown6tn03.01.2021 21:58
-
Тамик99926.11.2020 09:00
-
lok200506.05.2021 07:31
-
hitman1910200330.03.2020 07:38
-
яидиот234519.09.2020 08:31
-
321Shark30.06.2020 12:36
-
GardenBrid07.08.2021 11:25
-
Шпунтя10.06.2023 13:18
-
katia617322.03.2023 14:44
-
29Vladislava1306.12.2021 05:30