Показать сообщение отдельно

  #9  
Старый 24.04.2008, 00:33
VERte][
Участник форума
Регистрация: 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] для кого придумали?
 
Ответить с цитированием