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

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

Задать свой вопрос
Гостинопольская Эмилия
Безотлагательно,пожааалуйста))
1 ответ
1)var a:integer;
begin
writeln('Введите число');
readln(a);
if (a mod 2=0) then write('Чётное ')
else write('Нечётное ');
if (a div 100gt;=1)then write('трёхзначное число')
else if (a div 10gt;=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 (alt;b)and (blt;c) then 
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт