Урок 10 Задача 1
Primary tabs
Пользователь вводит число, определите делится ли оно на 4
var a: integer; begin write ('Введите число: '); readln (a); // считываем число if (a mod 4 = 0) then // прописываем условие, чтобы остаток от деления числа на 4 был равен нулю writeln (a, ' делится на 4 без остатка: ', a, ' / ', 4, ' = ', a div 4) //если условие верно, выводим соответствующее сообщение, а также само деление и его результат else //остались случаи когда остаток не равен нулю writeln (a, ' не делится на 4 без остатка'); // выводим соответствующее сообщение readln (); end.
Вывод в консоли:
Введите число: 36
36 делится на 4 без остатка: 36 / 4 = 9
- Log in to post comments
- 312 reads