Урок 10 Задание 1
Primary tabs
Пользователь вводит число, определите делится ли оно на 4
var a: integer; begin write('Введите число a: '); readln(a); if (a mod 4) = 0 then writeln('a делится на 4') else begin if (a div 4) <>0 then writeln('a делится на 4 c остатком'); end end.
- Log in to post comments
- 664 reads