Question

С клавиатуры задаётся 3 числа. Найти сумму кратных двум РЕШИТЬ ПАСКАЛЕМ. ОЧЕНЬ НУЖНО

Answer 1

Var a, b, c: integer;
begin
for a:=1 to 3 do
begin
readln(b);
if b mod 2 = 0 then c:=b+c;
end;
writeln('Ответ: ',c);
end.

Answer 2

Конечно, я могу помочь вам решить эту задачу на языке Паскаль. Вот пример программы, которая находит сумму чисел, кратных двум:

pascalCopy code
program SumOfMultiples;
var
  num1, num2, num3, sum: Integer;
begin
  writeln('Введите три числа:');
  readln(num1, num2, num3);

  sum := 0;

  if num1 mod 2 = 0 then
    sum := sum + num1;

  if num2 mod 2 = 0 then
    sum := sum + num2;

  if num3 mod 2 = 0 then
    sum := sum + num3;

  writeln('Сумма чисел, кратных двум:', sum);
end.

Вы можете скопировать эту программу в среду разработки Паскаль, такую как Free Pascal, и выполнить ее. Она запросит ввод трех чисел с клавиатуры и выведет сумму чисел, кратных двум.

Обратите внимание, что в этой программе мы используем оператор mod для проверки остатка от деления числа на 2. Если остаток равен нулю, то число является кратным двум.