Помогите
Напишите программу в Pascal ABC, определяющую является ли треугольник египетским, т.е. Его стороны должны быть равны 3, 4 и 5(можно просто на листочке бумаги)
Напишите программу в Pascal ABC, определяющую является ли треугольник египетским, т.е. Его стороны должны быть равны 3, 4 и 5(можно просто на листочке бумаги)
Answers & Comments
var
a, i, bool : integer;
begin
bool:=0;
i:=3;
while i>0 do
begin
i:= i-1;
read(a);
case a of
3: bool:= bool+3;
4: bool:= bool+4;
5: bool:= bool+5;
end;
end;
if bool=12 then write('true') else write('false');
end.