Question

Организовать с клавиатуры ввод N произвольных целых чисел. Найти сумму целых положительных чисел кратных 4 и меньших 60.(Pascal ABC)

Answer 1

var

 n,a,sum,i:integer;

begin

 write('n='); readln(n);

 sum:=0;

 writeln(-4 mod 4);

 for i:=1 to n do  

   begin

     readln(a);

     if (a mod 4=0) and (a<60) and (a>0) then

       sum:=sum+a;

   end;

 writeln('sum=',sum);

end.

Answer 2

Для решения данной задачи на языке Pascal ABC, вам потребуется организовать ввод N произвольных целых чисел с клавиатуры и найти сумму целых положительных чисел, кратных 4 и меньших 60.

Вот пример кода на языке Pascal ABC, который решает данную задачу:

program SumOfMultiples;
var
  N, i, num, sum: integer;
begin
  write('Введите количество чисел N: ');
  readln(N);
  
  sum := 0;
  
  for i := 1 to N do
  begin
    write('Введите число ', i, ': ');
    readln(num);
    
    if (num > 0) and (num < 60) and (num mod 4 = 0) then
      sum := sum + num;
  end;
  
  writeln('Сумма целых положительных чисел, кратных 4 и меньших 60: ', sum);
end.

В этом коде мы сначала запрашиваем у пользователя количество чисел N. Затем мы вводим N чисел с клавиатуры и проверяем каждое число на условия: оно должно быть положительным, меньше 60 и кратным 4. Если число удовлетворяет этим условиям, мы добавляем его к сумме. В конце выводим полученную сумму.

Примечание: Вам может потребоваться настроить среду разработки Pascal ABC и скомпилировать код перед его выполнением.