М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Vasyliev
Vasyliev
21.02.2023 01:40 •  Информатика

На С++ Симметричная последовательность Последовательность чисел назовем симметричной, если она одинаково читается как слева направо, так и справа налево. Например, следующие последовательности являются симметричными: 1 2 3 4 5 4 3 2 1 1 2 1 2 2 1 2 1 Вашей программе будет дана последовательность чисел. Требуется определить, какое минимальное количество и каких чисел надо приписать в конец этой последовательности, чтобы она стала симметричной.

Входные данные

Сначала вводится число N — количество элементов исходной последовательности (1≤N≤100). Далее через пробел идут N чисел — элементы этой последовательности, натуральные числа от 1 до 9.

Выходные данные

Выведите сначала число M — минимальное количество элементов, которое надо дописать к последовательности, а потом M чисел (каждое — от 1 до 9) — числа, которые надо дописать к последовательности.

👇
Открыть все ответы
Ответ:
Малая1806
Малая1806
21.02.2023
Текст: Напечатать в виде таблицы значения функции 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.
4,4(36 оценок)
Ответ:
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.
4,6(10 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ