Урок 10 Задача 1
Primary tabs
Пользователь вводит число, определите делится ли оно на 4
var a: integer; begin writeln('vvedite chislo:'); readln(a); if (a mod 4) = 0 then writeln( a, ' delitca na 4 bez ostatka') else writeln( a, ' ne delitca na 4 bez ostatka'); readln(); end.
- Log in to post comments
- 402 reads