В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
denisDergunov
denisDergunov
31.05.2021 05:21 •  Информатика

Делать нужно в программу python
Даны действительные числа a1,a2,...an. Поменять местами наибольший и наименьший элементы.
В фото приложено, что я пыталась делать, но не совсем получается, буду очень благодарна, кто

Показать ответ
Ответ:
tunekoff228
tunekoff228
14.03.2020 20:14
Текст: Напечатать в виде таблицы значения функции y=7x^3+2/3x+Корень x-4 , для значений x изменяющегося от 5 до b с шагом 5.
Итак, начнём. Пень знает что это за сомнительное б, ну да ладно. Я думаю - это число произвольное.
Var 
x,b:integer;
begin
x:=5;
b:=300;
writeln('|     x      |       y(x)      |');
while x<=b do
begin 
writeln('||');
writeln('|  ',x,'     |','  ', (7*(x*x*x)+2)/(3*x+sqrt(x-4)), '   |');
x:=x+5;
end;
writeln('||');
end.
Это первая задача.

Третья задача. Я не знал, что там за икс, и откуда он берётся, так что сделал так что пользователь вводит икс самостоятельно.
a=ln(x^3-2|*1/tgx)

var
a,x:real;
begin
Writeln('Введите число x');
Readln(x);
if x<=2 then writeln('Значение x не подходит, значениe "а" присваивается ноль.')
else
a:=(sqrt(sqr(ln(x*x*x-2)))*(1/(sin(x)/cos(x;
writeln('a=',a);
end.
0,0(0 оценок)
Ответ:
dashasamoylova2
dashasamoylova2
02.05.2022 06:07
1.
Program TuKpa6;const n=5;const m=5;varA:array[1..n,1..m] of integer;i,j:integer;BEGINfor i:=1 to n do  begin    for j:=1 to m do      begin        a[i,j]:=10*i+j;      end;  end;writeln('HaIIgeHo:');for i:=1 to n do  begin    for j:=1 to m do      begin        if (odd(a[i,j])) and (a[i,j]<40) and (a[i,j] mod 5 = 2) then          begin            writeln('a[',i,j,']=',a[i,j]);          end;      end;  end;writeln('koHeII,');END.

2.
Program TuKpa6;const n=5;varA:array[1..n] of integer;i,sum:integer;BEGINsum:=0;for i:=1 to n do {забиваем массва}  begin  a[i]:=i;  end;for i:=1 to n do {суммируем чётные элементы}  begin    if not (odd(a[i])) then      begin        sum:=sum+a[i];      end;  end; writeln('HaIIgeHo:');for i:=1 to n do  begin    if i=4 then      begin        a[i]:=sum;        writeln('a[',i,']=',a[i]);      end;  end;writeln('koHeII,');END.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота