Определить, кратно ли данное число трём; если нет, вывести остаток. (Напишите

Найти, кратно ли заданное число трём; если нет, вывести остаток.
(Напишите на языке программирования)
Пожалуйста!!!!

Задать свой вопрос
1 ответ

var x:integer;

Begin

 write('Введите число: '); read(x);

 

 if(x mod 3 = 0) then write('Число кратно трем!') else

   write('Число не кратно трем (остаток: '+x mod 3+')');

End.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт