Решите на паскале. сегодня сдавать. 1. составьте алгоритм для нахождения среднего арифметического чисел от 0 до 10.

269

430

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

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

артем1151

Информатика

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

Алгоритм : 1)подсчитать сумму чисел. 2)подсчитать количество чисел 3)разделить сумму чисел на их количество вот если надо прога var i,n: integer; srzn,sum: real; begin sum: =0; n: =0; for i: = 0 to 10 do begin sum: =sum+i; n: =n+1; srzn: =sum/n; end; write(srzn: 0: 5); end.

kamila0277

Информатика

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

Если текст будет в строчку,как обычно оно тут бывает,скачай мой тхт,там код в нормальном виде var a, b, c: integer; a1, b1, c1: integer; beginwhile true dobegin writeln('введите 3 числа'); readln(a, b, c); if (a mod 2) = 0 then // четным плюс 1 a1 : = 1; if (b mod 2) = 0 then b1 : = 1; if(c mod 2) = 0 then c1 : = 1; if((a mod 2) < > 0) and ((b mod 2) < > 0) and ((c mod 2) < > 0) then //при четных нету writeln('четных нет'); if(a1=1)and(b1=0)and(c1=0)then //если только 1 четное writeln(a) else if(a1=0)and(b1=1)and(c1=0)then writeln(b) else if(a1=0)and(b1=0)and(c1=1)then writeln(c); if (a1 = 1) or (b1 = 1) or (c1 = 1) then //выяснение большего числа begin if(a1 = 1) and (b1 = 1) and (c1 = 1) then // если 3 числа четные begin if (a > = b) and (a > = c) then writeln(a) else if (b > = a) and (b > = c) then writeln(b) else if(c > = b) and (c > = a) then writeln(c) end else if (a1 = 1) and (b1 = 1) then//если а и б четные begin if(a > b) then writeln(a) else if (b > a) then writeln(b) end else if(a1=1)and(c1=1)then//если а и с begin if(a > c) then writeln(a) else if (c > a) then writeln(c) end else if(b1=1)and(c1=1) then//если б и с begin if(b> c)then writeln(b) else if(c> b)then writeln(c) end; end; end; end.

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

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

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

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

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

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

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

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

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

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