
20.06.2007, 17:10
|
|
Участник форума
Регистрация: 10.08.2006
Сообщений: 147
Провел на форуме: 404152
Репутация:
94
|
|
Сообщение от NetMan
Ну тогда вот так:
Код:
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.
 ) ну задача стояла насколько я помню чтоб сложить введенное одной строкой: 4+4 и выдать ответ, я эт и сделал, а про другое разгавора небыло
да это и не так и сложно сделать.
|
|
|