Паскаль
var a,b,c,d:integer; x,y:real;
begin
writeln(a);
writeln(b);
writeln(c);
readln(a);
readln(b);
readln(c);
d:=b*b-4*a*c;
if d>0 then begin
x:=(-b+sqrt(d))/(2*a);
y:=(-b-sqrt(d))/(2*a);
writeln(x,y);
end;
if d=0 then begin
x:=-b/2*a;
writeln(x);
end;
if d<0 then begin
writeln('Уравнение не имеет корней')
end;
end.
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>
А){1}, {2}, {k}
б)множества от 1 до 10 целых чисел
в)бескончность, 0