1. Дано целое число, лежащее в диапазоне 1-999. Вывести его строку-описание вида "четное двузначное число","нечетное трехзначное число" и т. д.

2. Даны 3 переменные вещественного типа: А, В, С. Если их значения упорядочены по возрастанию, то удвоить их. В противном случае заменить значение каждой переменной на противоположное. Вывести новые значения переменных А, В, С.

3. Даны 3 целых числа, одно из которых отлично от двух других, равных между собой. Определить порядковый номер числа, отличного от остальных.

Question

Информатика

Хариса

12 февраля, 18:31

1. Дано целое число, лежащее в диапазоне 1-999. Вывести его строку-описание вида "четное двузначное число","нечетное трехзначное число" и т. д.

2. Даны 3 переменные вещественного типа: А, В, С. Если их значения упорядочены по возрастанию, то удвоить их. В противном случае заменить значение каждой переменной на противоположное. Вывести новые значения переменных А, В, С.

3. Даны 3 целых числа, одно из которых отлично от двух других, равных между собой. Определить порядковый номер числа, отличного от остальных.

+2

Ответы (1)

Знаете ответ на вопрос?

Дука · Answer 1

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
begin

a:=2*a;

b:=2*b;

c:=2*c; end

else

begin

a: = (-1) * a;

b: = (-1) * b;

c: = (-1) * c;

end;

writeln (a) ;

writeln (b) ;

writeln (c) ;

end.

3) var a, b, c:integer;

begin

writeln ('Введите 1 число') ;

readln (a) ;

writeln ('Введите 2 число') ;

readln (b) ;

writeln ('Введите 3 число') ;

readln (c) ;

if a=b then writeln ('3')

else if b=c then writeln ('1')

else writeln ('2') ;

end.