За 1. дано двузначное число. напишите программу , которая определяет: есть ли среди цифр заданного целого двузначного числа одинаковые. 2. написать программу: ввести номер месяца и вывести название времени года. 3. ввести возраст человека (от 1 до 1500 и вывести его вместе с последующим словом "год", "года", "лет". смотри прикрепленный файл.

1

var a: string;

begin

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

  readln(a);

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

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)  

    then ending : = 'лет'

  else

    case (age mod 10) of

      1: ending : = 'год';

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

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

    end;

  write(age, ' ', ending)

end.

2.системы автоматического перевода

5.праграммы онлайн перевода текста