Сделайте, пожалуйста
1. Ввести с клавиатуры число. Если оно двузначное, на экране должно появиться сообщение «Это число двузначное», в остальных случаях появляется сообщение «Число не является двузначным».
2. Ввести с клавиатуры трехзначное число. Если число четное, вывести на экран сообщение «Это число четное», в остальных случаях сообщение «Число не является четным».
98 БАЛЛОВ!!!
1. Ввести с клавиатуры число. Если оно двузначное, на экране должно появиться сообщение «Это число двузначное», в остальных случаях появляется сообщение «Число не является двузначным».
2. Ввести с клавиатуры трехзначное число. Если число четное, вывести на экран сообщение «Это число четное», в остальных случаях сообщение «Число не является четным».
98 БАЛЛОВ!!!
More Questions From This User See All
Answers & Comments
#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.