Нужно решить задачу по информатике:
число a и b - катеты одного треугольника, c и d - катеты другого. Определите, являются ли эти треугольники равновеликикими.
Программа - Паскаль
по шаблону
prorram ...
Var ...
Begin ...
If ...
Then ...
Ответы
Ответ дал:
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.
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?
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
1 год назад
6 лет назад
6 лет назад
7 лет назад
7 лет назад