• Предмет: Информатика
  • Автор: АксинияР
  • Вопрос задан 9 месяцев назад

Нужно решить задачу по информатике:
число a и b - катеты одного треугольника, c и d - катеты другого. Определите, являются ли эти треугольники равновеликикими.

Программа - Паскаль
по шаблону

prorram ...
Var ...
Begin ...
If ...
Then ...

Ответы

Ответ дал: ManulTheLiar
1
Program prog;
var
  a,b,c,d: real;
begin
readln(a,b,c,d);

if (a>0) and (b>0) and (c>0) and (d>0)  then begin
if (a*b = c*d)   then
writeln('Являются')
else  writeln('Не являются')
end;
end.


АксинияР: а нужно a,b,c,d,<0?
ManulTheLiar: Можно
ManulTheLiar: Только >
Дима0001: как будет выглядеть блок схема?
Похожие вопросы