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

Question

Сделайте, пожалуйста 1. Ввести с клавиатуры число. Если оно двузначное, на экране должно появиться сообщение «Это число двузначное», в остальных случаях появляется сообщение «Число не является двузначным». 2. Ввести с клавиатуры трехзначное число. Если число четное, вывести на экран сообщение «Это число четное», в остальных случаях сообщение «Число не является четным». 98 БАЛЛОВ!!!

Comments

На каком языке вас интересует решениек

---

pascal

Answer 1

#1.

var n,i,flag:integer;

begin  

readln (n);

flag:=0;

while n>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.