Question

Язык pascal ABC Введите 5 положительных уныл чисел, вычислите сумму тех из них которые делятся на 4, и оканчиваются на 6. Если таких чисел нет, то вывести об этом сообщение.

Answer 1

 Program z;
 var a: array[1..5] of integer;
 i,sum:integer;
 begin
 for i:=1 to 5 do
 begin
 readln(a[i]);
 end;
 for i:=1 to 5 do
 begin
 if(a[i] mod 4=0) and (a[i] div 10=6) then
sum:=sum+a[i];
 end;
 writeln(sum);
 end.
 
 

Answer 2

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

pascalCopy code
program SumDivisibleByFourAndEndsWithSix;

var
  num, sum: integer;
  count: integer;

begin
  sum := 0;
  count := 0;

  writeln('Введите 5 положительных чисел:');

  repeat
    readln(num);
    if (num > 0) and (num mod 4 = 0) and (num mod 10 = 6) then
    begin
      sum := sum + num;
      count := count + 1;
    end;
  until count = 5;

  if count > 0 then
    writeln('Сумма чисел, делящихся на 4 и оканчивающихся на 6:', sum)
  else
    writeln('Нет чисел, делящихся на 4 и оканчивающихся на 6.');

  readln;
end.

Программа запрашивает ввод 5 положительных чисел. Затем она проверяет каждое число на условия: должно делиться на 4 и оканчиваться на 6. Если число удовлетворяет этим условиям, оно добавляется к сумме. Если таких чисел нет, выводится соответствующее сообщение.