Помогите пожалуйста!!!!Срочно!!!!98 баллов за выполнение!!!! 1. Дано двузначное число....

0 голосов
22 просмотров

Помогите пожалуйста!!!!Срочно!!!!98 баллов за выполнение!!!! 1. Дано двузначное число. Напишите программу , которая определяет: есть ли среди цифр заданного целого двузначного числа одинаковые. 2. Написать программу: Ввести номер месяца и вывести название времени года. 3. Ввести возраст человека (от 1 до 1500 и вывести его вместе с последующим словом "год", "года", "лет". Смотри прикрепленный файл.


Информатика (185 баллов) | 22 просмотров
0

1. На каком языке программирования?

0

2. Нет файла.

0

1.PascalABC(.NET) (9 класс);2.Не было,нет и не будет.

0

Программу надо записать в тетрадь.

0

Что значит "дано двузначное число"? Его вводят с клавиатуры, оно доступно в виде переменной?

Дан 1 ответ
0 голосов

1 задача

var a: string;

begin

 write('Введите двузначное число: ');

 readln(a);

 writeln((a.First() = a.Last()) ? 'Цифры одинаковы' : 'Цифры различаются');

end.

2 задача

var  

 month: integer;

 season: string;

begin

 write('Введите номер месяца: ');

 readln(month);

 case month of

   1,2,12: season := 'Зима';

   3..5:   season := 'Весна';

   6..8:   season := 'Лето';

   9..11:  season := 'Осень';

   else    season := 'Вы ввели неверный номер месяца';

 end;

 writeln(season)

end.

3 задача

var  

 age: integer;

 ending: string;

begin

 write('Введите возраст: ');

 readln(age);

 if (age mod 100 >= 10) and (age mod 100 <= 20)  </p>

   then ending := 'лет'

 else

   case (age mod 10) of

     1: ending := 'год';

     2..4: ending := 'года';

     5..9, 0: ending := 'лет'

   end;

 write(age, ' ', ending)

end.

(400 баллов)