Вам дано три целых числа a, b, c для которых выполняется условие a2+b2=c2.

определить делится ли одно из них на число 3. сделать в pascal

Question

Информатика: Вам дано три целых числа a, b, c для которых выполняется условие a2+b2=c2. определить делится ли одно из них на число 3. сделать в pascal

каринка191 · Accepted Answer

Хахахаа, я такую программу сам создавал от нефиг делать)) ток во втором мб не нужно в квадрате???
исходник от java прикрепил,
вот паскаль
var a,b,c,d,x1,x2 :extended;
begin
readln(a,b,c);
d:=(b*b)-(4*a*c);
if d<0 then begin write('Korney net!'); end;
if d=0 then begin
if b<0 then begin b:=b+b+b; x1:=b/(2*a); write(x1); end;
if b>0 then begin b:=b-b-b; x1:=b/(2*a); write(x1); end; end;
if d>0 then begin
if b<0 then begin b:=b+b+b; x1:=(b-sqrt(d))/(2*a); x2:=(b+sqrt(d))/(2*a); write(x1,x2); end;
if b>0 then begin b:=b-b-b; x1:=(b-sqrt(d))/(2*a); x2:=(b+sqrt(d))/(2*a); write(x1,x2); end;
end; end.

Вам дано три целых числа a, b, c для которых выполняется условие a2+b2=c2. определить делится ли одно из них на число 3. сделать в pascal

MOGZ ответил

Вам дано три целых числа a, b, c для которых выполняется условие a2+b2=c2.

определить делится ли одно из них на число 3. сделать в pascal