Дано n чисел, сосчитать количество чисел, которые меньше -15, найти сумму кратных 9, но не кратных 6. , напишите программу для pascal и кратко объясните решение, завтра контрольная, а я циклы пропустил по болезни : (

279

470

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

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

pomogiteplease1245

Информатика

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

var

a: integer; //a - вводимое число

kol, s: integer; //kol - количество чисел, кратных 9, но не кратных 6; s - сумма чисел, которые меньше -15

i: integer; //переменная для цикла

n: word;

begin

n: = 0; //обнуляем счетчик

s: = 0; //обнуляем сумму

writeln('введите число n');

readln(n); //вводим n

for i: = 1 to n do //вводим число n раз

begin

writeln('введите целое число');

readln(a);

if a < -15 then kol: = kol + 1; //если число < 15, то прибавляем к счетчику 1

if (a mod 9 = 0) and (a mod 6 < > 0) then s: = s + a; //если число кратно 9, но не кратно 6, то прибавляем это число к сумме

end;

writeln('количество чисел, которые меньше -15: ', kol); {выводим количество чисел и сумму}

writeln('сумма чисел, кратных 9, но не кратных 6: ', s);

end.

almira132

Информатика

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

//dev-c++ 5.11 #include < iostream> using namespace std; int main(void) {float x,y,z=0; cin> > x> > y> > z; if(x+y+z< 1) {float min=x; if (min> y) min=y; if (min> z) min=z; if (min==x) x=(y+z)/2; if (min==y) y=(x+z)/2; if (min==z) z=(x+y)/2; } else if(x> y) y=(x+z)/2; else x=(y+z)/2; cout< < x< < " "< < y< < " "< < z< < " "; return 0; } пример ввода: 1.1 2.2 3.3 пример вывода: 2.75 2.2 3.3

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

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

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

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

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

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

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

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

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

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