"Я самый главный!"- заявил монитор, на мне возникает информация и изображения.
"Нет, я самая главная,- сказала клавиатура, без меня никак, не сможешь ничего оттреадактировать,вбить информацию в память, общаться - да вообще ничего!"
Но память возразила : " Ээх вы, я тут главнее всех, как вы без меня! Ничего не сохранишь, не запомнишь, да в общем без меня очень сложно что-то представить!"
"Да вы что? - начал возмущаться процессор, - Главных не должно быть, мы все представляем собой одно целое!" Так они и воссоединились и представляют собой одну частичку главного .
pascal
Объяснение:
var
a, b, c: real;
rel: boolean;
begin
Write('Введите стороны треугольника через пробел: ');
ReadLn(a, b, c);
if (a + b > c) and (a + c > b) and (b + c > a)
and (a > 0) and (b > 0) and (c > 0) then
begin
WriteLn('Треугольник с указанными сторонами существует.');
if (a + b + c) / 3 = a then
begin
WriteLn('Треугольник является равносторонним.');
rel := true;
end
else if ((a + b) / 2 = a) or ((b + c) / 2 = b) or ((a + c) / 2 = a) then
begin
WriteLn('Треугольник является равнобедренным.');
rel := true;
end;
if (a*a + b*b = c*c) or (a*a + c*c = b*b) or (b*b + c*c = a*a) then
begin
WriteLn('Треугольник является прямоугольным.');
rel := true;
end;
if not(rel) then WriteLn('Треугольник является произвольным.');
end
else
WriteLn('Треугольник с указанными сторонами не существует.');
end.