Строки Опции

[Zzzzz]

Как от одного элемента строки отнять другой g[5]-st[1] ?

[klem4]

uses crt, dos;
var
   s : string[4];
   y,m,d,dw : word;
begin

   clrscr;

   write('Группа : '); readln(s);

   GetDate(y,m,d,dw);

   writeln('Год набора : ', y- (ord(s[1])-48));

   readln;
end.

?

ну или вот так :

uses crt;
var
   s : string[4];
   y : word;
begin

   clrscr;

   write('Группа : '); readln(s);

   write('Текущий год : '); readln(y);

   writeln('Год набора : ', y- (ord(s[1])-48));

   readln;
end.

Сообщение отредактировано: klem4 - 10.12.2005 20:52