Pascalabc. net напишите программу, которая вычисляет арифметическое выражение, введённое в виде символьной строки. выражение содержит только целые числа и знаки сложения. входные данные входная строка содержит запись арифметического выражения. выходные данные программа должна вывести результат вычисления переданного ей выражения. примеры входные данные 12+32+43+5 выходные данные 92

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin   // без проверок на правильность   var st: =readlnstring;   var p: =st.matchvalues('(\d+)').select(x-> x.tobiginteger);   var s: =biginteger(0);   foreach var n in p do s+=n;   writeln(s) end. примеры 12+32+43+5 92 123424634243542+36745656856678567578654+434253+3222+322523230 36745656980103524782901

ну, без понятия на каком языке писать - не решаема.

однако, на "метаязыке":

 

задать массив матрица[5,5];

получить ввод в ввод;

если ввод = 's', то {

сумма = 0;

x = 1;

продолжать, пока x < = 5  {

сумма =  сумма +  матрица[x,x];

x = x + 1;

}

вывести  сумма;

} иначе, если  ввод равен 'a' или 'b' или 'c', то {

x = 1;

продолжать, пока x < = 5  {

среднарифм = 0;

y = 1;

продолжать, пока y < = 5  {

среднарифм  =  среднарифм  +  матрица[x,y];

y  = y + 1;

}

вывести  среднарифм / 5;

x = x + 1;

}

}  иначе, если  ввод = 'm', то {

минимум =  матрица[1,1];

максимум =  матрица[1,1];

x = 1;

продолжать, пока x < = 5  {

y = 1;

продолжать, пока y < = 5  {

если  матрица[x,y]  <   минимум   то  минимум =  матрица[x,y];

если  матрица[x,y]  >   максимум    то  максимум =  матрица[x,y];

y  = y + 1;

}

}

вывести  минимум;

вывести  максимум;

}

var

a: [1..100] array of integer;

i,n,p: integer;

begin

readln(n);

for i: =1 to n do

begin

readln(a[i]);

p: =2;

while (p*p< =a[i]) do

begin

if p*p=a[i] then writeln (a[i],' полный квадрат')

p: =p+1;

end;

end;

end.