Предмет: Информатика,
автор: Maria7788
Введите с клавиатуры целое число в диапазоне 1-999.
а)Определите количество знаков в числе;
б)Определите четность числа;
в)Выведите описание числа,например,"нечетное однозначное число","четное двухзначное число" и тд.
Пример ввода: 347
Пример вывода: Нечетное трехзначное число
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Химия,
автор: saga13048
Предмет: Другие предметы,
автор: 190576
Предмет: Алгебра,
автор: sidoaltna2403
Предмет: Алгебра,
автор: 13088
Предмет: Геометрия,
автор: Ольга258