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

0 голосов
27 просмотров

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


Информатика (24 баллов) | 27 просмотров
Дан 1 ответ
0 голосов

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

(1.7k баллов)
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.