хелп ми плез Паскаль

Хелп ми плез Паскаль

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

3.

var

   a, b : integer;

begin

   readln(a, b);

   if ((a mod 10) mod 2 = 0) and ((b mod 10) mod 2 = 0) then writeln('Правильно') else writeln('Не верно');

end.

4.

var

   a : integer;

begin

   readln(a);

   if (a lt; 10000) and (a gt; 999) and (a mod 3 = 0) then writeln('Является') else writeln('не является');

end.

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


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

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

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

Войти на сайт