Чатик
8 участников
скобец7: 45
запятыня, саша, не забудьте форму взять, сегодня в футбол пойдём!
саша7: 50
о, , что напомнил, осталось только уместить её в рюкзак…
скобец7: 51
а что ты ещё собрался тащить? ? сегодня же только да .
ксюша
саша7: 51
войну и мир! хочу показать наталье владимировне, какие у меня необычные иллюстрации в книге!
скобец7: 51
тёма8: 30
ой, соня, аня, я проспал, идите без меня.
соня8: 31
ок.
аня8: 32
ты к музыкальной переменке-то успеешь?
тёма8: 32
постараюсь, а что вы будете петь?
арсен8: 32
попробуй угадать песню (это монеточка):
тёма8: 42
хм… так непонятно, ну скоро узнаю) до встречи!
соседи соседи
аня
ксюша
арсен
футбол футбол
запятыня
скобец
саша
музыка музыка
соня
скобец
саша
A,B,C:integer;
Begin
WriteLn('Введите три числа');
ReadLn(A,B,C);
if (A<=B)and(B<=C) then Write(A,' ',B,' ',C)
else if (A<=C)and(C<=B) then Write(A,' ',C,' ',B)
else if (B<=A)and(A<=C) then Write(B,' ',A,' ',C)
else if (B<=C)and(C<=A) then Write(B,' ',C,' ',A)
else if (C<=A)and(A<=B) then Write(C,' ',A,' ',B)
else if (C<=B)and(B<=A) then Write(C,' ',B,' ',A)
End.
Var a,b,c,D:real;
Begin
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('c = ');ReadLn(c);
D:=b*b-4*a*c;
if D>=0 then
Begin
WriteLn('x = ',(-b-sqrt(D))/(2*a));
WriteLn('x = ',(-b+sqrt(D))/(2*a));
End
else WriteLn('Действительных корней нет')
End.
begin
write ('a='); read (a);
write ('b='); read (b);
write ('c='); read (c);
d:=b*b-4*a*c;
if d<0 then writeln ('NO')
else if d>0 then
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln ('x1=',x1:0:2,' x2=',x2:0:2)
end
else
begin
x:=-b/(2*a);
writeln ('x=',x);
end
end.