найти, кратно ли число B ,вводимое с клавиатуры 21

Найти, кратно ли число B ,вводимое с клавиатуры 21

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

На Паскале:

var b: integer;

begin

writeln('Введите число: ');

readln(b);

if b mod 21=0 then

writeln('Число кратно 21')

else

writeln('Число не кратно 21');

end.

Вадик
1 uses crt;2 var b:integer;3 begin 4 write(' A и B и C: ');readln(b);5 if b mod 21=0 then write('кратно ') else writeln('не кратно ')6 end. А если сделать так?
Курындин Анатолий
можно и через модуль crt, принцип то тот же, но с 4 строкой что-то здесь не то),для чего там и "а" и "b" и "c"?)
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт