
24.04.2008, 00:33
|
|
Участник форума
Регистрация: 17.05.2007
Сообщений: 220
Провел на форуме: 3013539
Репутация:
441
|
|
Код:
program ebaat;
var a,b,c,d: real;
begin
write('Input abc:');
read(a,b,c);
d:=b*b-4*a*c;
if d<0 then writeln('Fuck you')
else begin writeln('x1=',(-b+sqrt(d))/(2*a));
writeln('x2=',(-b-sqrt(d))/(2*a)) end
end.
чет типа того)
Последний раз редактировалось De-visible; 29.04.2008 в 15:29..
Причина: теги [code] для кого придумали?
|
|
|