Прошу с решением по информатике по теме "одномерные массивы" (язык программирования pascal). написать программы: 1) даны два числа а и в. если числа положительные, вычислить произведение этих чисел, если хотя бы одно их них отрицательное, вычислить сумму квадратов этих чисел. 2) дан произвольный массив, замените каждый второй элемент массива на ноль, а каждый пятый увеличите в 2 раза. и выведите полученный массив на экран.

192

461

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

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

Denis577

Информатика

4,5(55 оценок)

1) var a,b: integer; begin readln(a,b); if (a> 0)and(b> 0) then writeln(a*b) else writeln(a*a+b*b); end. 2) const n=30; var a: array[1..n] of integer; begin for var i: = 1 to n do begin a[i]: =random(100)-50; write(a[i]: 3,' '); end; writeln; for var i: = 1 to n do begin if i mod 2 = 0 then a[i]: =0 else if i mod 5 = 0 then a[i]: =a[i]*2; write(a[i]: 3,' '); end; end.

фрешграфф

Информатика

4,5(64 оценок)

// pascalabc.net 3.2, сборка 1387 от 17.02.2017 // внимание! если программа не работает, обновите версию! 1) begin var a,b: real; read(a,b); if (a> 0) and (b> 0) then writeln('произведение равно ',a*b) else writeln('сумма квадратов равна ',a*a+b*b) end. 2) begin var a: =arrrandom(readinteger('n=',99); a.println; for var i: =0 to a.length-1 do if i.isodd then a[i]: =0 else if (i+1) mod 5 =0 then a[i]*=2; a.println; end. пример n= 17 7 -49 -21 84 87 12 27 86 -29 -55 -32 -83 -24 96 -3 -3 -78 7 0 -21 0 174 0 27 0 -29 0 -32 0 -24 0 -6 0 -78 замечание "каждый второй" и "каждый пятый" пересечение на каждом десятом. и получается. что каждый десятый элемент должен быть обнулён. как каждый второй и удвоен, как каждый пятый, так что все равно получим ноль.

SnowWhite98

Информатика

4,5(30 оценок)

Дано n=2 a=640 b=272 v-? v=a*b*i ( i- неизвестно) найдем из формулы n=2^i ; 2=2^i i=1 бит v=a*b*i = 640*272*1=174080 бит переведем в кб 174080 /8/1024=2125 кб

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

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

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

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

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

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

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

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

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

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