Сделайте, пожалуйста1. Ввести с клавиатуры число. Если оно двузначное, на экране обязано
Сделайте, пожалуйста
1. Ввести с клавиатуры число. Если оно двузначное, на экране обязано показаться известье Это число двузначное, в других случаях возникает известье Число не является двузначным.
2. Ввести с клавиатуры трехзначное число. Если число четное, вывести на экран известие Это число четное, в остальных случаях известье Число не является четным.
98 БАЛЛОВ!!!
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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.