Нужна с программированием в pascal. напишите программу на : "дано действительные числа a,b,c . если a> b> c , то числа оставить без изменений, в противоположном случае все числа заменить на их квадраты"

235

365

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

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

Mlpoiuytrewqazxcvbn

Информатика

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

Pascalabc.net 3.3.5, сборка 1660 от 20.04.2018 внимание! если программа не работает, обновите версию! 1. современное решение begin var (a,b,c): =readreal3; if (a> b) and (b> c) then else (a,b,c): =(a*a,b*b,c*c); println(a,b,c) end. пример 15.8 4.9 13 249.64 24.01 169 2. а так, увы, все еще учат писать во многих program toska; var a,b,c: real; begin read(a,b,c); if not ((a> b) and (b> c)) then begin a: =a*a; b: =b*b; c: =c*c end; writeln(a,' ',b,' ',c) end.

tabastyaffdsgh

Информатика

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

А) 1. const x0=0; xk=pi; h=pi/2; var x,y: real; i: integer; begin x: =x0-h; for i: =0 to round((xk-x0)/h) do begin x: =x+h; y: =0.5*x+sqr(sin(x)); writeln(x: 5: 2,' ',y: 6: 4); end; end. 2. const x0=0; xk=pi; h=pi/2; var x,y: real; i: integer; begin x: =x0-h; while x< xk do begin x: =x+h; y: =0.5*x+sqr(sin(x)); writeln(x: 5: 2,' ',y: 6: 4); end; end. 3. const x0=0; xk=pi; h=pi/2; var x,y: real; i: integer; begin x: =x0-h; repeat x: =x+h; y: =0.5*x+sqr(sin(x)); writeln(x: 5: 2,' ',y: 6: 4); until x> =xk; end. результат: 0.00 0.00001.57 1.78543.14 1.5708б)var x,y: real; beginreadln(x); y: =(3-sin(2*x))*cos(x/3); writeln('y = ',y: 6: 4); if y< 0 then writeln('функция отрицательна') else if y> 0 then writeln('функция положительна') else writeln('функция = 0'); end.пример: 1.5y = 2.5089функция положительна

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

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

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

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

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

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

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

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

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

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