Помогите написать программу на ПАСКАЛЕ:
даны 3 числа в порядке возрастания-стороны треугольника, вывести сообщение «этот треугольник прямоугольный»
ПОМОГИТЕ ПОЖАЛУЙСТА
РЕШАЕТСЯ ПОЛУГОДОВАЯ
46 баллов
Ответы
Ответ дал:
0
var a,b,c: integer;
writeln ('введите стороны прямоугольника')
readln(a,b,c);
if a*a+b*b=c*c than writeln ('этот треугольник прямоугольный') else writeln ('этот треугольник не прямоугольный');
end.
Ответ дал:
0
var a,b,c: integer;
begin
writeln ('введите стороны прямоугольника');
readln(a,b,c);
if a*a+b*b=c*c then writeln ('этот треугольник прямоугольный') else writeln ('этот треугольник не прямоугольный');
end.
begin
writeln ('введите стороны прямоугольника');
readln(a,b,c);
if a*a+b*b=c*c then writeln ('этот треугольник прямоугольный') else writeln ('этот треугольник не прямоугольный');
end.
Ответ дал:
0
вот довел полностью до конца
Ответ дал:
0
label ra,rb;
var a,b,c: integer;
begin
write('Введите сторону a: ');
readln(a);
ra: write('Введите сторону b: ');
readln(b);
if b>a then
begin
rb: write('Введите сторону c: ');
readln(c);
if c>b then begin
if sqr(c)=sqr(a)+sqr(b) then writeln('Этот треугольник - прямоугольный') else writeln('Этот треугольник - не прямоугольный');
end else begin writeln('Введите число больше, чем ',b); goto rb; end;
end else begin writeln('Введите число больше, чем ',a); goto ra; end;
end.
Ответ дал:
0
закинул в паскаль, где-то ошибка
Ответ дал:
0
Исправил, не хватило begin-end (ох уж этот паскаль)
Ответ дал:
0
Да, понимаю тебя)
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад