Var s:string; i:integer; begin; readln(s); if length(s)<5 then begin; writeln('Условие не выполнено'); exit; end; for i:=1 to 5 do s[i]:='a'; write(s); end.
Function Sq(a,b,c:real):real; Var p:real; Begin p:=(a+b+c)/2; result:=Sqrt(p*(p-a)*(p-b)*(p-c)) End;
Function Tr(a,b,c:real):boolean; Begin result:=(a+b>c)and(a+c>b)and(b+c>a) End;
Var a,b,c,k1,k2,h,t,s,r1,r2:real; Begin writeln(' найти радиус или площадь треугольника? если радиус,то нажмите 1. Если площадь, то нажмите 2 '); readln(k1); if k1=1 then
begin writeln('окружность вписанная(нажмите 1) или описанная(нажмите 2)?'); readln(k2);
write('сторона а = '); readln(a); write('сторона b = '); readln(b); write('сторона с = '); readln(c); if Tr(a,b,c) then begin s:=Sq(a,b,c);
if k2=1 then begin r1:=(a+b+c)/(2*s); writeln('радиус вписанной окружности = ' , r1); end;
if k2=2 then begin r2:=a*b*c/(4*s); writeln('радиус описанной окружности = ', r2); end; end else WriteLn('Треугольник не существует'); end else
if k1=2 then begin writeln('что вам известно? если а и h, то нажмите 1. если а,b,с то нажмите 2' ); readln(k2); if k2=1 then begin write('высота = '); readln(h); write('cторона = '); readln(t); s:=1/2*h*t; writeln('площадь = ',s); end;
if k2=2 then begin Write('a = '); ReadLn(a); Write('b = '); ReadLn(b); Write('c = '); ReadLn(c); if Tr(a,b,c) then begin s:=Sq(a,b,c); writeln('площадь = ',s) ; end else WriteLn('Треугольник не существует'); end; end; end.
Пример: найти радиус или площадь треугольника? если радиус,то нажмите 1. Если площадь, то нажмите 2 2 что вам известно? если а и h, то нажмите 1. если а,b,с то нажмите 2 1 высота = 3 cторона = 4 площадь = 6
Много лишнего(наверно), только с олимпиады!Как есть. uses crt; var b,n,i,k,c,o,x1:integer; f,s,ch:string; r,g: text; A:array [0..9] of integer; begin assign (r,'C:\Bin.txt'); reset (r); readln (r,f); close (r); for i:=1 to length(f) do begin s:=copy(f,1,1); if (s<>'0') or (s<>'1') or (s<>'2') or (s<>'3') or (s<>'4') or (s<>'5') or (s<>'6') or (s<>'7') or (s<>'8') or (s<>'9')then delete(f,1,1); if (s='0') or (s='1') or (s='2') or (s='3') or (s='4') or (s='5') or (s='6') or (s='7') or (s='8') or (s='9')then begin x1:=pos(s,ch); if x1<>0 then begin delete(ch,x1,1); ch:=ch+s; end else ch:=ch+s; end; end; val(ch,n,o); N := Abs(N); for i := 0 to 9 do A[ i ] := 0; while N > 0 do begin Inc(A[ N mod 10]); N := N div 10; end; assign (g,'C:\Bout.txt'); rewrite (g); for i := 0 to 9 do while A[ i ] > 0 do begin Write(g,i); Dec(A[ i ]); end; close(g); end.
i:integer;
begin;
readln(s);
if length(s)<5 then
begin;
writeln('Условие не выполнено');
exit;
end;
for i:=1 to 5 do
s[i]:='a';
write(s);
end.
//Delphi в приложении