13 Варик 1 задание написать программу по Паскалю

13 Варик 1 задание написать программу по Паскалю

Задать свой вопрос
1 ответ
Program search;
var a: integer;
begin 
write('Введи a='); 
readln(a); 
if a mod  5 = 0 then writeln('делится на 5'); 
if a mod 12 = 0 then writeln('делится на 12'); 
if a mod 21 = 0 then writeln('делится на 21');
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт