Введите с клавиатуры целое число в диапазоне 1-999.а)Определите количество знаков в числе;б)Определите четность числа;в)Выведите описание числа,например,"нечетное однозначное число","четное двухзначное число" и тд.Пример ввода:...
Введите с клавиатуры целое число в диапазоне 1-999.
а)Определите количество знаков в числе;
б)Определите четность числа;
в)Выведите описание числа,например,"нечетное однозначное число","четное двухзначное число" и тд.
Пример ввода: 347
Пример вывода: Нечетное трехзначное число
Гость
Ответ(ы) на вопрос:
ГостьType num=1..999;
Var x:num; k,y:integer;
Begin
write('x=');
readln(x);
y:=x;
k:=0;
while y<>0 do
begin
y:=y div 10;
k:=k+1;
end;
if (x mod 2)=0 then
write('Четное ')
else
write('Нечетное ');
if k=1 then write('однозначное ')
else
if k=2 then write ('двухзначное ')
else
write('трехзначное ');
writeln('число');
End.
Не нашли ответ?
Похожие вопросы