Ответ:
Я в таких заданиях обычно по логике работаю и перебираю, систем не так много, если конечно опять же логично подходить. Тут ответ 6
Объяснение:
Ты не указал номер элемента массива, который считать будешь
Var a,b,c:integer; x:char;
begin
repeat
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
if (a+b>c)and(a+c>b)and(b+c>a)
then writeln('Стороны могут образовать треугольник')
else writeln('Стороны не могут образовать треугольник');
writeln('Желаете повторить? (Y/N)');
readln(x);
until x='N';
end.
Пример:
<span>a = 3
b = 5
c = 4
Стороны могут образовать треугольник
Желаете повторить? (Y/N)
Y
a = 8
b = 1
c = 5
Стороны не могут образовать треугольник
Желаете повторить? (Y/N)
<span>N</span>
</span>
1. Объект: радуга
Модель: рисунок радуги
Свойства: семицветная.
2. Объект: самолет
Модель: макет самолета
Свойства: одинаковая форма, цвет.
3. Объект: яблоко
Модель: муляж яблока
Свойства: одинаковая форма, цвет.