a^2+b^2=c^2

[viron]

Вот попробовал через Round(). Тоже отбрасывает дробную часть.

var
  x: Real;
begin
  x:= 5.9;


  if (Round(x) > x) then
    x:= Round(x) - 1
  else
    x:= Round(x);

Round(x) - округляет до ближайшего целого числа

Round(5.3) = 5;
Round(5.8) = 6;

[Ия Ильина]

мы только несколько месяцев назад начали проходить паскаль
и пока не изучали даже Round

спасибо, что пытаетесь помочь огромное!

[Camaro Chevelle]

может int проходили, там тоже дробная часть отбрасывается, результат вещественный только

[Ия Ильина]

ТОЧНО НЕ ПРОХОДИЛИ!

[Camaro Chevelle]

если тут пифагоровы тройки то сооотношение сторон соответствующего им египесткого треугольника будет 3:4:5, следовательно можно обойтись и без вложенных циклов, меняя только число С. B при этом равно 4*С/5, а А=3*С/5

[Ия Ильина]

вот уже ближе к истине
а как это в программе записать? помогите пожалуйста

[Ия Ильина]

я попробывала сама

program qq;
var a,b,c: integer;
begin
for a:=1 to 20 do
b:=3*a/4;
c:=3*a/5;
if sqr(a)+sqr(b)=sqr(c) then writeln(a,' ',b,' ',c);
end.


но он пишет что ошибка
попытка присвоить переменной типа integer выражение типа real

[Ия Ильина]

Пожалуйста помогите!

[Camaro Chevelle]

читай моё исправленное сообщение выше

[Ия Ильина]

но он пишет что ошибка
попытка присвоить переменной типа integer выражение типа real
!!!