На вход программе подаётся последовательность символов, заканчивающаяся точкой (точка – признак конца и в последовательность не входит). данная последовательность является правильной записью арифметического выражения, состоящего из целых десятичных чисел и знаков «плюс» и «минус» (могут стоять и перед первым числом). при этом два знака подряд в выражении не допускается. программа должна вычислить значения данного выражения и вывести его на экран. гарантируется, что ни на каком этапе вычислений тип longint не переполнится. пример: введено «234-234+657.», программа должна вывести «657».

171

392

Посмотреть ответы 2

Ответы на вопрос:

saparchikrusoy10t7

Информатика

4,6(52 оценок)

Var s,s1: string; sum,a,code,i: integer; begin writeln('введите выражение: '); readln(s); sum: =0; s1: =''; for i: =1 to length(s) do case s[i] of '0'..'9' : s1: =s1+s[i]; '-','+','.' : begin val(s1,a,code); sum: =sum+a; s1: =s[i]; end; end; writeln('sum = ',sum); end. пример: введите выражение: 234-234+657. sum = 657

2710200013

Информатика

4,5(51 оценок)

// pascalabc.net 3.2, сборка 1425 от 22.04.2017 // внимание! если программа не работает, обновите версию! type filenameclass=class public fullpath: string; name: string; extension: string; path: string; constructor (fp: string); begin fullpath: =fp; name: =extractfilename(fp); var p: =lastpos('.',name); if p> 0 then name: =name[: p]; extension: =extractfileext(fp); path: =extractfilepath(fp) end; procedure puttype; begin case extension[2: ] of 'txt': writeln('файл текстовый'); 'bmp','jpg','tiff','gif','psd','png','ico': writeln('файл графический'); 'mp4','mov','mpg','avi': writeln('файл видео') else writeln('файл неизвестного типа') end end; procedure putname; begin writeln(name) end; end; begin var ofile: =new filenameclass(readlnstring('полный путь к файлу: ')); ofile.putname; ofile.puttype; ofile: =nil // если надо явно удалить объект end. пример полный путь к файлу: pabcwork.net\demo.bmp demo файл графический "десятикратный размер", который вы не соизволили объяснить, сделаете сами, когда поймете, что это.