..................................
1) 110011; 63; 51; 33
2) 11010101; 325; 213; D5
3) 1001010010; 1122; 594; 252
4) 1011111; 137; 95; 5F
5) 11101; 35; 29; 1D
6) 10010110; 226; 150; 96
7) 101011001; 531; 345; 159
8) 11010110; 326; 214; D6
от 3 до 7 букв. Два варианта на каждую букву
2³+2⁴+2⁵+2⁶+2⁷=8+16+32+64+128=248 слов
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>
Блокнот-простой текстовый редактор являющиеся частью операционных систем