Помогите
Напишите программу в Pascal ABC, определяющую является ли треугольник египетским, т.е. Его стороны должны быть равны 3, 4 и 5(можно просто на листочке бумаги)
Ответы
Ответ дал:
0
решение ниже в комментарии
Ответ дал:
0
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.
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.
Похожие вопросы
2 года назад
2 года назад
2 года назад
8 лет назад
9 лет назад