Составить программы по информатике, препод - зверь.
pascal
1. найдите длину на отрезке [a,b], заданного координатами точек а и в.
2. найдите произведение дробей z+5/ [10..l].
3. найдите произведение элементов массива а [1..10] больше первого элемента.
4. найдите максимальную температуру первой декады ноября.
5. найдите среднюю зарплату 20-ти сотрудников офиса.
, хотя бы с парочкой! т.т
Ответы на вопрос:
объяснение:
1.
program line_ab;
uses crt;
var l, xa, xb, ya, yb: real;
begin
writeln('найдем длину отрезка ав по координатам его крайних точек' );
writeln('введите координаты точки a');
write('x = '); readln(xa);
write('y = '); readln(ya);
writeln('введите координаты точки b');
write('x = '); readln(xb);
write('y = '); readln(yb);
l: =sqrt(sqr(xb-xa)+sqr(yb-ya));
write('длина отрезка ab равна ', l);
readln;
end.
2.
program multdrob;
uses crt;
var z, mult: real; i, l: integer;
begin
write('введите z = '); readln(z);
write('введите l = '); readln(l);
mult: =z+5/(10);
for i: =1 to l do
mult: =mult*(z+5/(10+i)) ;
write('произведение дробей z+5/[10..l] равно ', mult);
readln;
end.
3.
program multmass;
uses crt;
var a: array[1..10] of real; mult: real; i: integer;
begin
randomize;
for i: =1 to 10 do begin
a[i]: =random(10);
write(a[i]: 7: 2) end;
writeln;
mult: =1;
for i: =2 to 10 do
if a[i] > a[1] then mult: =mult*a[i] ;
if mult> 1 then write('произведение элементов болших первого равно ',mult)
else write('произведение элементов болших первого равно ' ,0);
readln;
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
yibiuninmk17.03.2022 20:11
-
Anorwen02.08.2021 07:42
-
блашер20.04.2020 11:50
-
DarknEssDk1107.09.2021 02:46
-
ЛамповыйКун127.02.2021 05:24
-
Шамиль123323.06.2023 19:56
-
Makc13420.05.2020 18:37
-
sergijkorovonko19.07.2021 05:04
-
rassvetmoydrug09.11.2022 14:49
-
AleksangraJarasyova08.10.2021 04:12
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.