Информатика: нужно решить все задания вместе с оформлением дано решение

lesa18

29.08.2020 07:35

Есть ответ 👍

нужно решить все задания вместе с оформлением дано решение

185

189

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

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.

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

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

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

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

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

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