Var a, b : string; i, s, n: integer; begin n:=0; writeln('Введите слово'); readln(a); s:=length(a); writeln('Слово = ',a); writeln('Количество букв: ', s); end.
Программа находит сумма квадратов двух чисел, чтоб уьроенного меняешь только строку c= и пишешь c=a*3+b*3
1 АБ
2 б
3 в
4 5 кб
5 1100000
6 151 = 154 624 = 1 236 992
368640 = 46080 = 4е
pow(a,b) - возведение a в степень b
pow(m,1.0/3)