Написать функцию в pascal со следующим кодом: а то я немного запутался( function test(a, b, c: real): real; begin test: =sqrt(2*a + b - c); end;

164

464

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

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

alyo7na

Информатика

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

Var i: integer; begin // с for for i : = 1 to 5 do write(i,' '); writeln; for i : = 5 downto 1 do write(i,' '); writeln; writeln; // с while i : = 1; while i< =5 do begin write(i,' '); i : = i + 1; end; writeln; i : = 5; while i> =1 do begin write(i,' '); i : = i - 1; end; writeln; writeln; // с repeat i : = 1; repeat write(i,' '); i : = i + 1; until i> 5; writeln; i : = 5; repeat write(i,' '); i : = i - 1; until i< 1; writeln; end.вывод последовательности 1 3 5 7 9 var i,x: integer; begin // с for и промежуточной переменной x : = 1; for i : = 1 to 5 do begin write(x,' '); x : = x + 2; end; writeln; // с for без промежуточной переменной for i : = 1 to 5 do write(2*i-1,' '); writeln; // с while x : = 1; while x< 10 do begin write(x,' '); x : = x + 2; end; writeln; // с repeat x : = 1; repeat write(x,' '); x : = x + 2; until x> =10; end.сумма и произведение введенных чиселкод на pascal var i: integer; s,p: real; x: real; begin writeln('введите 10 чисел: '); s : = 0; p : = 1; for i : = 1 to 10 do begin read(x); s : = s + x; p : = p * x; end; writeln('сумма введенных чисел = ',s); writeln('произведение введенных чисел = ',p); end.код на pascalabc.net var s,p: real; begin writeln('введите 10 чисел: '); s : = 0; p : = 1; for var i : = 1 to 10 do begin var x: integer; read(x); s += x; p *= x; end; writeln('сумма введенных чисел = ',s); writeln('произведение введенных чисел = ',p); end.вычисление n! код на pascal var n,fact: integer; i: integer; begin write('введите n (n< =13): '); readln(n); fact : = 1; for i : = 2 to n do fact : = fact * i; writeln(n,'! = ',fact); end.код на pascalabc.net var n: integer; begin write('введите n (n< =13): '); readln(n); var fact : = 1; for var i : = 2 to n do fact *= i; writeln(n,'! = ',fact); end. вычисление anкод на pascal var n,i: integer; a,p: real; begin write('введите a,n: '); readln(a,n); p : = 1; for i : = 1 to n do p : = p * a; writeln(a,' в степени ',n,' = ',p); end.код на pascalabc.net var n: integer; a: real; begin write('введите a,n: '); readln(a,n); var p : = 1.0; for var i : = 1 to n do p *= a; writelnformat('{0} в степени {1} = {2}',a,n,p); end.

yaxyeu

Информатика

4,8(43 оценок)

Для этого подходит Cup Cut(Сорри за ошибки) Я уже в этом приложении 1 год) С 1 секунды поняла что и как нужно делать)

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

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

Популярно: Информатика

Есть вопросы?

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

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

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

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

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