18.03.2009, 19:52
|
|
Познающий
Регистрация: 01.03.2008
Сообщений: 99
С нами:
9577084
Репутация:
51
|
|
Сообщение от GOODmen
в строке записаны слова вперемешку с целыми числами.подсчитать кол.и сумму всех чисел в строке.например для строки qwerty45easdf54 результат должен быть 2 и 99-два целых числа,сумма которого равна 99-ти.
тут нужно использовать входной и выходной файл (input.txt and output.txt)
лабы на free pascale ...
парни плиз помогите завтра сдавать аж три лабы,а ни одной нету...
хотя бы эту,если кто может реально помоч с еще двумя то стукни в аську 409829
зарание благодарю
Отрицательные числа могут быть? Если нет, то вот вариант, если да, то напиши.
Код:
program symma;
var str,str1:string;
n,len,x,s,k:word;
err:integer;
f:text;
begin
assign (f, 'input.txt');
reset (f);
readln (f,str);
close (f);
len:=length(str);
n:=1;
while n<=len do begin
if (str[n]>'0') and (str[n]<'9') then str1:=str1+str[n] else if str1>'' then begin k:=k+1; Val(str1, x, err); s:=s+x; str1:=''; end;
n:=n+1;
end;
if str1>'' then begin k:=k+1; Val(str1, x, err); s:=s+x; str1:=''; end;
assign (f, 'output.txt');
rewrite(f);
writeln (f,'Количество: ',k);
writeln (f,'Сумма: ',s);
close (f);
end.
|
|
|