Question

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

Answer 1

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.