Задача 2 Урок 10

Задача 2 Урок 10

Пользователь вводит 4 целых числа, выведите на экран не более трех из этих чисел, которые делятся нацело на 4 (т.е. нужно вывести те числа, которые делятся на 4, но не более трех штук).

Решение:

var a, b, c, d: integer;
begin
  writeln('vvedite a,b,cc,d:');
  readln(a, b, c, d);
  writeln();
  if (a mod 4 = 0) then
     write(a, ' ');
  if (b mod 4 = 0) then
     write (b, ' ' );
  if (c mod 4 = 0) then
     write (c, ' ' );
  if (d mod 4 = 0) and ((a mod 4 <> 0) or (b mod 4 <> 0) or (c mod 4 <> 0)) then
     //d vivoditsya tol'ko esli a,b ili c ne delitsya na 4 nacelo
     write (d, ' ' );
  readln ();
end.