Урок 10.0 Задача 2
Primary tabs
Пользователь вводит 4 целых числа, выведите на экран не более трех из этих чисел, которые делятся нацело на 4 (т.е. нужно вывести те числа, которые делятся на 4, но не более трех штук).
Решение:
program Project1; var a, b, x, f:integer; begin writeln('Введите число a:'); readln(a); writeln('Введите число b:'); readln(b); writeln('Введите число x:'); readln(x); writeln('Введите число f:'); readln(f); if (a mod 4) = 0 then writeln(a, ' делиться ',' на 4'); if (b mod 4) = 0 then writeln(b, ' делиться ',' на 4'); if (x mod 4) = 0 then writeln(x, ' делиться ',' на 4'); readln(); end.
- Log in to post comments
- 353 reads
vedro-compota
Thu, 09/15/2022 - 19:23
Permalink
если мы вводим числа в таком
если мы вводим числа в таком порядке:
то в ответ мы должны получить
_____________
матфак вгу и остальная классика =)