Program yravnenie;
Var
a,b,c,D,x1,x2,p,q:Real;
Begin
Repeat
Write('a= ');
Readln(a);
if a=0 then writeln('Error: a=0. Enter another value');
Until a<>0;
Write('b= ');
Readln(b);
Write('c= ');
Readln(c);
p:=b/a;
q:=c/a;
D:=Sqr(p/2)-q;
If D>0 then
begin
Writeln('x1 = ',-p/2-Sqrt(D):0:5);
Writeln('x2 = ',-p/2+Sqrt(D):0:5);
end
else
If D=0 then
Writeln('x1 = x2 = ',-p/2:0:5)
else
begin
Writeln('x1 = ',-p/2:0:5,'-i*',Sqrt(-D):0:5);
Writeln('x2 = ',-p/2:0:5,'+i*',Sqrt(-D):0:5);
end;
Readln;
End.
Var
n,k:integer;
Begin
Write('Введите n и k: ');
Readln(n,k);
if n = k then write(n) else
if n>k then write('N - max') else write('K - max');
End.
Var a,S,P:integer;
Begin
Readln(a);
S:=a*a;
P:=a*4;
writeln('Периметр = ',P,' Площадь = ',S);
readln;
end.
Не знаю, на ЯП тебе нужно или нет, но вот без:
Пример множества:
Множество грибов(разные грибы, без определенного порядка, но все это - ГРИБЫ).
10 элементов:
Элемент массива - 1
Яблоко на дереве(элемент яблони) - 2
Посевы на огороде(любой посев - элемент огорода) - 3
Буква в алфавите - элемент алфавита - 4
Любой человек из класса - элемент этого класса - 5
Волос на голове (элемент волосяного покрова головы) - 6
Любой палец на кисти(элемент множества пальцев на кисти) - 7
Месяц года(месяц - элемент множества месяцев календаря) - 8
Просто число(элемент множеств всех простых чисел) - 9
Любая сторона N-угольника(элемент множества всех сторон N-угольника) - 10.