Регистрация
vikyliya
06.07.2020 16:49
Информатика
Есть ответ 👍

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

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

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

georgijandreev1
georgijandreev1
4,5(88 оценок)

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.

хВика
хВика
4,8(74 оценок)

ответ:

а =   правда

в =   ложь

какие из составных высказываний истины:   б) и г)

а) не а   = ложь

б) не в   = правда

в) а и в   = ложь

г) а или в = правда

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