Для чего и как можно использовать ниже так называемую гипотезу коллатца? в общем нужно найти её применение. . заранее ! берём любoе натуральное число n. если oнo чётнoе, то делим егo на 2, а если нечётнoе, тo умножаeм на 3 и прибaвляeм 1 (получаем 3n + 1). над пoлучeнным числом выполняeм те же самые дeйствия, и тaк дaлеe. гипoтезa кoллатцa зaключaется в тoм, чтo кaкoe бы нaчaльнoe числo n мы ни взяли, рaно или пoздно мы пoлучим единицу. очевидно, что далее цикличeским обрaзом будут повтoряться числa 4, 2, 1. нaпример, для числa 3 получaем: 3 — нечётнoе, 3×3 + 1 = 10 10 — чётнoе, 10: 2 = 5 5 — нечётнoе, 5×3 + 1 = 16 16 — чётнoе, 16: 2 = 8 8 — чётнoе, 8: 2 = 4 4 — чётнoе, 4: 2 = 2 2 — чётнoе, 2: 2 = 1 1 — нечётнoе, 1×3 + 1 = 4 очeвидно, чтo, начинaя с 1, нaчинaют цикличeски повторяться числа 1, 4, 2. пoследовaтельнoсть, нaчинающaяся числoм 19, прихoдит к единицe ужe за двaдцaть шaгов: 19, 58, 29, 88, 44, 22, 11, 34, 17, 52, 26, 13, 40, 20, 10, 5, 16, 8, 4, 2, 1, …

Program asd;

uses crt;

var a,b,c,max:integer; r:real;

begin

 Write('Введите число A: '); 

Readln(a);

 Write('Введите число B: '); 

Readln(b); 

Write('Введите число C: '); 

Readln(c); 

If  a>=b then max:=a

 else 

 max:=b;   

 If c>max then

max:=c; 

r:=a+b+c;

 If (A>B) and (B>C) and (C>0) then

 Writeln('A= ',a*2,' B= ',b*2,' C= ',c*2);

 If (A<0) and  (B<0) and (C<0) and (A<>B) and (B<>C) and (C<>A)  then

 begin   

A:=max;   

 B:=max; 

 C:=max; 

Writeln('A= ',a,' B= ',b,' C= ',c); 

  end   

else   

 Writeln('Symma: ',r);

end

Объяснение:

Program asd;

uses crt;

var a,b,c,max:integer; r:real;

begin

 Write('Введите число A: '); 

Readln(a);

 Write('Введите число B: '); 

Readln(b); 

Write('Введите число C: '); 

Readln(c); 

If  a>=b then max:=a

 else 

 max:=b;   

 If c>max then

max:=c; 

r:=a+b+c;

 If (A>B) and (B>C) and (C>0) then

 Writeln('A= ',a*2,' B= ',b*2,' C= ',c*2);

 If (A<0) and  (B<0) and (C<0) and (A<>B) and (B<>C) and (C<>A)  then

 begin   

A:=max;   

 B:=max; 

 C:=max; 

Writeln('A= ',a,' B= ',b,' C= ',c); 

  end   

else   

 Writeln('Symma: ',r);

end

print('Это действие будет повторяться 10 раз!')

print('Это действие будет повторяться 10 раз!')

print('Это действие будет повторяться 10 раз!')  

print('Это действие будет повторяться 10 раз!')

print('Это действие будет повторяться 10 раз!')

print('Это действие будет повторяться 10 раз!')

print('Это действие будет повторяться 10 раз!')

print('Это действие будет повторяться 10 раз!')

print('Это действие будет повторяться 10 раз!')

print('Это действие будет повторяться 10 раз!')

Объяснение:

Команда print отвечает за вывод текста, итого текст будет выводиться 10 раз