Помощь - Поиск - Пользователи - Календарь
Полная версия: Работа с текстовыми файлами
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Timik
Дан текст, в котором имеются цифры.
а) Найти их сумму.
б) Найти максимальную цифру
:molitva:
Jahnerus
Код
uses
 crt;
var
 f:text;
 tmp:string;
 i,n,summ,max:integer;

begin
 clrscr;
 assign(f,'in.txt');
 reset(f);
 max:=0;
 summ:=0;
 repeat
   readln(f,tmp);
   for i:=1 to length(tmp) do begin
     if tmp[i] in ['1'..'9'] then begin
       n:=ord(tmp[i])-ord('0');
       summ:=summ+n;
       if n>max then max:=n;
     end;
   end;
 until eof(f);
 close(f);
 writeln('Summa=',summ);
 writeln('Max=',max);
 readln;
end.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.