Question

СРОЧНО!!!! на Pascal ABC ввести 3 числа и определить есть ли среди них четные и кратные 3-м одновременно. 70 балов

Answer 1

Program n_1;

var x, i, s: integer; a: array[1..3] of integer;

begin

   read(a[1], a[2], a[3]);

   for i:=1 to 3 do begin

       s:=0;

       x:=a[i];

       while x>0 do begin

           s:=s+x mod 10;

           x:=x div 10;

       end;

       if (s mod 3 = 0) and (a[i] mod 2 = 0) then write(a[i], ' ');

   end;

end.

Answer 2

Хорошо, вот код на Pascal ABC, который позволяет ввести 3 числа и определить, есть ли среди них четные и кратные 3-м одновременно:

pascalCopy code
Program CheckEvenAndMultipleOfThree;
Var
  num1, num2, num3: Integer;

Begin
  WriteLn('Введите три числа:');
  ReadLn(num1, num2, num3);

  If ((num1 mod 2 = 0) And (num1 mod 3 = 0)) Or
     ((num2 mod 2 = 0) And (num2 mod 3 = 0)) Or
     ((num3 mod 2 = 0) And (num3 mod 3 = 0)) Then
  Begin
    WriteLn('Среди введенных чисел есть число, которое является четным и кратным 3.');
  End
  Else
  Begin
    WriteLn('Среди введенных чисел нет числа, которое было бы одновременно четным и кратным 3.');
  End;
End.

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