Решить ввести a и b и вывести квадрат и кубы чисел от a до b пример: введите границы интервала 4 16 64 5 25 125 6 36 216

143

258

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

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

sadpoli

Информатика

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

Var a,b: integer; begin write('a = '); readln(a); write('b = '); readln(b); for b: = a to b do writeln(b,' ',b*b,' ',b*b*b); end.

85Angel85

Информатика

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

Код pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 const n=100; type arr=array[1..n] of integer; var a: arr; skv: real; i,k,l: integer; procedure print(s: string; a: arr; l: integer); var i: integer; begin writeln(s); write('['); for i: =1 to l-1 do write(a[i],', '); writeln(a[l],']'); end; procedure sort(var a: arr; l: integer); var i,j,t: integer; begin for i: =1 to l-1 do for j: =i to l do if a[j]< a[i] then begin t: =a[j]; a[j]: =a[i]; a[i]: =t; end; end; begin repeat write('количество элементов массива: '); readln(k); until (k> 0) and (k< 101); write('введите массив: '); for i: =1 to k do repeat write('a[',i,']='); readln(a[i]); until (a[i]> -11) and (a[i]< 11); print('оригинальный массив: ',a,k); l: =0; skv: =0.0; for i: =1 to k do if a[i]< 0 then begin a[i]: =sqr(a[i]); skv: =skv+a[i]; l: =l+1; end else a[i]: =i; print('полученный массив: ',a,k); sort(a,k); print('отсортированный массив: ',a,k); writeln('среднее арифметическое квадратов отрицательных чисел: ',skv/l: 0: 4); readln; end.

Dvorchnik8196

Информатика

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

78 240 700 =100 101 010 011 101 101 110 111 100

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

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

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

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

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

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

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

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

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

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