Урок №10 Задание 1
Primary tabs
Пользователь вводит число, определите делится ли оно на 4
program Pr10_1; var a:integer; begin writeln('Введите число: '); readln(a); if (a mod 4 = 0) then writeln('Да') else writeln('Нет'); readln(); end.
Консоль:
Введите число: 3 Нет
- Log in to post comments
- 321 reads