Введите с клавиатуры целое число в диапазоне 1-999.
5-9 класс
|
а)Определите количество знаков в числе;
б)Определите четность числа;
в)Выведите описание числа,например,"нечетное однозначное число","четное двухзначное число" и тд.
Пример ввода: 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.
Другие вопросы из категории
десятичных кодов:
m-1
нц пока K<N
нц для i от K-M+2 до к sum=sum+i
кц
к = K+M
кц
Читайте также
а) определите количество знаков в числе;
б) определите чётность числа;
в) выведите описание числа ,наприме нечётное одназначное число чётное двухзначное число
2)Составьте программу,которая заполняет массив e[1..8] случайными целыми числами в диапазоне от 1 до 20 и находит сумму элементов с нечётными значениями и количество элементов кратных 3.
3)Составьте программу,которая заполняет массив e[1..14] случайными целыми числами в диапазоне от -10 до 10,затем изменяет знак положительных элементов на противоположный,а отрицательные элементы заменяет на 0.Спасибо.
элементов с нечётными индексами
2)составьте программу,которая заполняет массив a[1..10]случайными целыми числами в диапазоне от 0 до 10,находит максимальный элемент массива,а затем вычисляет,сколько раз он встречается в массиве
значениями. №2 Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10 до 10 и вычисляет среднее арифметическое элементов массива. №3 Такое же как и №2, только ...элементов массива с четными значениями.
и количество элементов с нечетными значениями.
б) Составьте программу, которая заполняет массив b[1..8] случайными целыми числами в диапазоне от 1 до 10 и находит произведение элементов с нечетными значениями и количество элементов с четными значениями.