Var i,y,a,b: single;
begin
writeln('Выберите действие: 1)y=(a+b)^2; 2)y=a^2-b^2; 3)y=1/(a+b)');
read(i);
if i=1 then begin
writeln('Введите a и b');
read(a,b);
write('y=',(a+b)*(a+b));
end
else begin
if i=2 then begin
writeln('Введите a и b');
read(a,b);
write('y=',(a*a)-(b*b));
end
else begin
if i=3 then begin
writeln('Введите a и b');
read(a,b);
write('y=',1/(a+b));
end;
end;
end;
<span>end.</span>
Редактор Flash Professional?
Var r,s:real;begin writeln('r=?, r>20 '); readln(r); s:=3.14159265359*(r*r-400.0); writeln('s=', s);end.
--------------
Но проверку r>20 не делал, просто попросил словами.
CBA - не подходит, так как на третьем месте стоит A;
EED - подходит;
AED - подходит;
CEC - подходит;
EBB - подходит;
BAE - не подходит, так как на первом месте стоит B;
CEA - не подходит, так как на третьем месте стоит A;
ABE - подходит;
CBD - подходит;
Ответ: 6 цепочек.
--------------------------------------Вроде так--------------------------------------