Помогите Напишите программу в Pascal ABC, определяющую является ли треугольник...

Question

Помогите
Напишите программу в Pascal ABC, определяющую является ли треугольник египетским, т.е. Его стороны должны быть равны 3, 4 и 5(можно просто на листочке бумаги)

Answer 1

Решение ниже в комментарии

Comments

program HelloWorld;

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.