Даю 100 баллов,если решите 4.13-4.15 с полным решением!

Даю 100 баллов,если решите 4.13-4.15 с полным решением!

Задать свой вопрос
Оленька Пимашина
На чем писать?
Леня Красун
Я решил, где обещанные 100 пиров?
1 ответ
Program s;
4.13
Var n:integer;
begin
Writeln('Введите число');
readln(n);
if (ngt;=100) and (nlt;1000) then 
Writeln('Число является трёхзначным')
else
Writeln('Число не является трёхзначным');
end.

4.15
Program s;
Var n:integer;
begin
Writeln('Введите число');
Readln(n);
if n mod 2=0 then
Writeln('Число четное')
else 
writeln('Число не четное');
end.

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


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

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

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

Войти на сайт