freepascal.ru

Код: Выделить всё

Program g;
Var
  let, let11, god, goda: set Of byte;
  age, n: byte;
  ok: string;
  label lab;
Begin
lab:
  let := [0,5,6,7,8,9];
  let11 := [11,12,13,1
  god := [1];
  //goda := [2,3,4];
  write('Введите количество лет: ');
  readln(age);
  If (age In let11) Or (age Mod 100 In let11) Then
    writeln(age, ' лет')
  Else
    Begin
      n := age Mod 10;
      If n In let Then
        writeln(age, ' лет')
      Else
        If n In god Then
          writeln(age, ' год')
      Else
        writeln(age, ' года ')
    End;
Writeln('хочешь продолжить?');
Writeln('да/нет');
Readln(ok);
If ok='да' then
goto lab
Else
  readln;
End.

Код: Выделить всё

Program g;
label lab;
Var
  let, let11, god, goda: set Of byte;
  age, n: byte;
  ok: string;
Begin
lab:
  let := [0,5,6,7,8,9];
  let11 := [11,12,13,1
  god := [1];
  //goda := [2,3,4];
  write('Введите количество лет: ');
  readln(age);
  If (age In let11) Or (age Mod 100 In let11) Then
    writeln(age, ' лет')
  Else
    Begin
      n := age Mod 10;
      If n In let Then
        writeln(age, ' лет')
      Else
        If n In god Then
          writeln(age, ' год')
      Else
        writeln(age, ' года ')
    End;
Writeln('хочешь продолжить?');
Writeln('да/нет');
Readln(ok);
If ok='да' then
goto lab
Else
  readln;
End.


Код: Выделить всё

Program
  My_Program;

Var
  let, let11, god, goda: set Of byte;
  age, n: byte;
  ok: string;

Begin
  repeat
    let := [0,5..9];
    let11 := [11..14];
    god := [1];
    write('Введите возраст : ');
    readln(age);
    If (age In let11) Or (age Mod 100 In let11) Then
      writeln(age, ' лет')
    Else Begin
      n := age Mod 10;
      If n In let Then
        writeln(age, ' лет')
      Else
        If n In god Then
          writeln(age, ' год')
        Else
          writeln(age, ' года ')
    End;
    Writeln('Для продолжения введите любой символ,для выхода нажмите Enter.');
    Readln(ok);
  until length(ok)=0;
End.

Paster Fob писал(а):

Код: Выделить всё

Program
  My_Program;

Var
  let, let11, god, goda: set Of byte;
  age, n: byte;
  ok: string;

Begin
  repeat
    let := [0,5..9];
    let11 := [11..14];
    god := [1];
    write('Введите возраст : ');
    readln(age);
    If (age In let11) Or (age Mod 100 In let11) Then
      writeln(age, ' лет')
    Else Begin
      n := age Mod 10;
      If n In let Then
        writeln(age, ' лет')
      Else
        If n In god Then
          writeln(age, ' год')
        Else
          writeln(age, ' года ')
    End;
    Writeln('Для продолжения введите любой символ,для выхода нажмите Enter.');
    Readln(ok);
  until length(ok)=0;
End.