luya21

08.11.2022 06:01

Информатика

Есть ответ 👍

1. Напишите программу, которая в последовательности натуральных чисел определяет сумму нечетных чисел, оканчивающихся на 7. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число
2. Напишите программу, которая в последовательности натуральных чисел определяет количество и среднее значение суммы четных 3-хзначных чисел. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 100. Введённые числа не превышают 300. Если избранных чисел нет, вывести «нет»

230

495

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

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

Dimastopgaming

Информатика

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

program one;

var

s,n,a,i :integer;

begin

s := 0;

readln(n);

for i := 1 to n do

begin

readln(a);

if (a mod 2 <>0) and (a mod 10 =7) then

s := s+a;

end;

write(s);

end.

###

program two;

var

s,n,a,i, k :integer;

begin

s := 0;

readln(n);

for i := 1 to n do

begin

readln(a);

if (a mod 2 = 0) and (a>99) and (a<1000) then

k := k + 1;

s := s + a;

end;

write(k, s/k);

end.

panda4918

Информатика

4,4(31 оценок)

program pr; uses crt, graphabc; var driver,mode : integer; beginsetwindowwidth(1024); setwindowheight(600); setpencolor(clblack); rectangle(100,100,400,400); rectangle(150,150,200,300); rectangle(300,150,350,300); rectangle(375,99,340,10); line(100,100,250,10); line(250,10,400,100); circle(600,50,50); floodfill(600,50,clblue); circle(250,65,30); floodfill(250,65,clred); setpencolor(clblue); rectangle(225,150,275,300); line(250,150,250,300); line(175,150,175,300); line(325,150,325,300); setpencolor(clred); circle(600,300,25); circle(575,340,25); circle(625,340,25); circle(550,380,25); circle(600,380,25); circle(650,380,25); end.

незнаю подойдет рисунок или нет но делал сам

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

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

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

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

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

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

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

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

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

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