Показать сообщение отдельно

  #19  
Старый 20.06.2007, 16:38
NetMan
Участник форума
Регистрация: 09.02.2004
Сообщений: 122
Провел на форуме:
1089794

Репутация: 134
По умолчанию

Ну тогда вот так:
Код:
uses crt;
var s:string;
    a,b,c,posit:integer;

function Str2Int(Str:String):Integer;
var Res,code:integer;
begin
      val(Str,Res,code);
      Str2Int:=Res;
end;

begin
      read(s);
      posit:=pos('+',s);
      a:=Str2Int(copy(s,1,posit-1));
      b:=Str2Int(copy(s,posit+1,length(s)-posit+1));
      c:=a+b;
      write('=',c);
      readln;
end.
 
Ответить с цитированием