Задача 2 Урок 10
Primary tabs
Пользователь вводит 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.
- Log in to post comments
- 295 reads