Сделайте, пожалуйста1. Ввести с клавиатуры число. Если оно двузначное, на экране обязано

Сделайте, пожалуйста
1. Ввести с клавиатуры число. Если оно двузначное, на экране обязано показаться известье Это число двузначное, в других случаях возникает известье Число не является двузначным.

2. Ввести с клавиатуры трехзначное число. Если число четное, вывести на экран известие Это число четное, в остальных случаях известье Число не является четным.

98 БАЛЛОВ!!!

Задать свой вопрос
Константин Блоцкий
На каком языке вас интересует решениек
Игорь Шетихин
pascal
1 ответ

1.

var n,i,flag:integer;

begin  

readln (n);

flag:=0;

while ngt;0 do  

begin

 i:=n mod 10;

 n:=n div 10;

 flag:=flag+1;

end;

if (flag = 2)  

  then writeln ('Это число двузначное')

else  

 writeln ('Число не является двузначным');

end.

2.

var n:integer;

begin  

readln (n);

if (n mod 2 = 0) then  

writeln ('Это число четное')

else

 writeln ('Число не является четным');

end.

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


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

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

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

Войти на сайт