Question

В числовую переменную последовательно вводятся произвольные числа не равные нулю.Количество вводимых чисел заранее неизвестно.Требуется вычислить и напечатать сумму и количество чисел кратных 3 и 5 Нужно решить на Паскале

Answer 1

Ответ:

Для написания программы используем цикл for, конструкцию ветвления if и оператор остатка от деления - mod

Объяснение:

var

 // n - количество вводимых чисел

 // count - счётчик чисел

 // numb - переменная для вводимого числа

 // sum - сумма чисел

 n, count, numb, sum: integer;

begin

 // Выводим просьбу на экран

 write('Количество вводимых чисел: ');

 // Запрашиваем ввод количества чисел с клавиатуры

 readln(n);

 // Повторяем (итерируем) цикл n раз

 for var i := 1 to n do

 begin

   // Запрашиваем ввод числа с клавиатуры

   readln(numb);

   // Проверяем, верно ли условие, что число делится без остатка на 3 и 5 (кратно 3ем и 5и)

   if ((numb mod 3 = 0) and (numb mod 5 = 0)) then

   begin

     // Добавляем число к сумме

     sum := sum + numb;

     // Увеличиваем значение счётчика

     count := count + 1;

   end;

 end;

 // Выводим результат работы программы

 writeln('Сумма и количество чисел кратных 3 и 5: ', sum, ' и ', count);

end.

Answer 2

Для решения данной задачи на языке Паскаль можно использовать цикл, который будет выполняться до тех пор, пока пользователь не введет число, равное нулю. Внутри цикла нужно проверять каждое введенное число на кратность 3 и 5, и если число удовлетворяет этому условию, увеличивать счетчик кратных чисел и добавлять его к сумме.

Вот пример кода на Паскале, который решает данную задачу:

program SumAndCountMultiples;
var
  number, count, sum: integer;
begin
  count := 0;
  sum := 0;
  
  repeat
    write('Введите число (0 для завершения): ');
    readln(number);
    
    if (number <> 0) and ((number mod 3 = 0) or (number mod 5 = 0)) then
    begin
      count := count + 1;
      sum := sum + number;
    end;
  until number = 0;
  
  writeln('Сумма чисел, кратных 3 или 5: ', sum);
  writeln('Количество чисел, кратных 3 или 5: ', count);
end.

В этом коде мы используем цикл `repeat...until`, который будет выполняться до тех пор, пока пользователь не введет число, равное нулю. Внутри цикла мы проверяем каждое введенное число на кратность 3 и 5 с помощью оператора `mod`. Если число удовлетворяет условию, мы увеличиваем счетчик `count` и добавляем число к сумме `sum`. По завершении цикла выводим на экран сумму и количество чисел, кратных 3 или 5.

Примечание: Пожалуйста, обратите внимание, что код на Паскале может быть чувствителен к регистру, поэтому убедитесь, что вы используете правильный регистр при вводе кода.