Нужна в переводе программы с Pascal на VBA var
z,c,o,x:real;
I:byte;
begin
writeln('Введите x');
readln(x);
i:=1;
c:=1;z:=1;
while(i<=63) do
begin
c:=c(x-i);
i:=i+2;
end;
i:=2;
while(i<=64) do
begin
z:=z(x-i);
i:=i+2;
end;
Writeln(c);
Writeln('--');
Writeln(z);
writeln('ответ=',c/z:5:2);
end.

102

143

Посмотреть ответы 1

Ответы на вопрос:

vidana3

Информатика

4,7(70 оценок)

Begin var s : = readalltext('input.txt'); while (pos(', короче,', s) < > 0) do delete(s, pos(', короче,', s), 9); writealltext('output.txt', s); end.

Задай свой вопрос

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.