Program z1;
var s,p,a,b,c:real;
begin
write('Введите катеты: ');
read(a,b);
c:=sqrt(sqr(a)+sqr(b)); // гипотенуза по т.Пифагора
writeln('Гипотенуза = ',c);
p:=a+b+c;// периметр
writeln('Периметр = ',p);
s:=a*b; // площадь
writeln('Площадь = ',s);
<span>end.
Жду спасибо)</span>
Type
index='0'..'z';
var
Ch:array[0..255] of integer;
s:string;
i,max,imax:integer;
begin
{ очищаем массив счетчиков }
for i:=0 to 255 do Ch[i]:=0;
Writeln('Введите текст');
Readln(s);
for i:=1 to Length(s) do Inc(Ch[Ord(s[i])]);
max:=Ch[0]; imax:=0;
for i:=33 to 255 do { не рассматриваем непечатаемые символы и пробел}
if max<Ch[i]then begin max:=Ch[i]; imax:=i end;
Writeln('Символ "',Chr(imax),'" встретился ',max,' раз(а)')
end.
<em><u>Тестовое решение:</u></em>
Введите текст
"Что значит имя? Роза пахнет розой, хоть розой назови её, хоть нет." (В.Шекспир)
Символ "о" встретился 9 раз(а)
1. N=32-(-32)=6
2 в 7 степени=128
2 в 6 степени>65<2 в 7 степени
i=7
40960:7=286720 бит