Условие задачи:
Дан текст, в котором имеются цифры. Найти их сумму.
Использовать:- переменные литерного типа;
- возможность ввода и чтения из буфера ввода;
- циклы;
Набросал что-то типо этого:
Код:
uses
SysUtils;
var a:char; k,c:integer;
begin
writeln('vvedite text');
c:=0; k:=0;
read(a);
c:=ord(a)+c;
read(a);
while a<>#13 do
begin
if (a>='0') and (a<='9') then
begin
c:=ord(a)+c;
c:=c-48;
if c>57 then
begin
k:=k+1;
c:=c-48;
end;
end;
read(a);
end;
a:=chr(c);
writeln('summa =',k,chr(c));
readln;
readln;
end.
Но эта дрянь не всегда считает...
Очень буду признателен, за помощь
