Question

На паскале написать программу которая в последовательность чисел( натуральных), определяет сумму всех чисел кратных 4 и оканчивающихся на 6. Программа получает на вход нат числа, признаком окончания ввода явл число 0. Могу решить и сам, только нельзя на компе проверить. Так что надеюсь на вас.

Answer 1

Var
  a: integer;
  s: longint;

begin
  s := 0;
  a := -32768;
  while a <> 0 do
  begin
    readln(a);
    if a <> 0 then
      if a mod 4 = 0 then
        if a mod 10 = 6 then s := s + a
  end;
  writeln('Сумма равна ', s)
end.

Answer 2

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

program SumOfDivisibleByFourAndEndsWithSix;
var
  n, sum: integer;
begin
  sum := 0; // инициализируем сумму нулем
  readln(n); // считываем первое число
  while n <> 0 do // пока число не равно нулю
  begin
    if (n mod 4 = 0) and (n mod 10 = 6) then // если число кратно 4 и оканчивается на 6
      sum := sum + n; // добавляем его к сумме
    readln(n); // считываем следующее число
  end;
  writeln('Сумма чисел, кратных 4 и оканчивающихся на 6, равна ', sum); // выводим результат
end.

Я надеюсь, что это поможет тебе с твоим заданием.Ответь+подробно.+На+паскале+написать+программу+которая+в+последовательность+чисел(+натуральных),+определяет+сумму+всех+чисел+кратных+4+и+оканчивающихся+на+6.+Программа+получает+на+вход+нат+числа,+признаком+окончания+ввода+явл+число+0.++Могу+решить+и+сам,+только+нельзя+на+компе+проверить.+Так+что+надеюсь+на+вас.