1.Дано целое число,лежащее в диапазоне 1-999.Вывести его строку-описание вида "четное двузначное число","нечетное трехзначное число" и т.д. 2.Даны 3 переменные вещественного типа:А,В,С.Если их значения упорядочены по возрастани...
1.Дано целое число,лежащее в диапазоне 1-999.Вывести его строку-описание вида "четное двузначное число","нечетное трехзначное число" и т.д.
2.Даны 3 переменные вещественного типа:А,В,С.Если их значения упорядочены по возрастанию,то удвоить их.В противном случае заменить значение каждой переменной на противоположное.Вывести новые значения переменных А,В,С.
3. Даны 3 целых числа,одно из которых отлично от двух других,равных между собой. Определить порядковый номер числа,отличного от остальных.
Гость
Ответ(ы) на вопрос:
Гость1)var a:integer;
begin
writeln('Введите число');
readln(a);
if (a mod 2=0) then write('Чётное ')
else write('Нечётное ');
if (a div 100>=1)then write('трёхзначное число')
else if (a div 10>=1)then write('двузначное число')
else writeln('однозначное число');
end.
2)var a,b,c:real;
begin
writeln('Введите 1 число');
readln(a);
writeln('Введите 2 число');
readln(b);
writeln('Введите 3 число');
readln(c);
if (a
Не нашли ответ?
Похожие вопросы