Безотлагательно пожалуйста 1.Вычисление значения выражения у=(2х+3)/(4-х)2. Нахождение произведения

Срочно пожалуйста 1.Вычисление значения выражения у=(2х+3)/(4-х)
2. Нахождение творенья нечётных чисел от 1 до К

Задать свой вопрос
1 ответ
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт