Уисполнителя множик две команды 1.умножить на 2. 2.разделить на 7. первая из них увеличивает число на - id751694720211129 от BlackCat20101 29.11.2021 20:40

Question

Информатика: Уисполнителя множик две команды 1.умножить на 2. 2.разделить на 7. первая из них увеличивает число на экране в 2 раза,вторая -уменьшает в 7 раз.программа для множика это последовательность команд.сколько различных чисел можно получить из числа 7 в 5 степени при программы,содержащей ровно 5 команд? ответ обосновать.

BlackCat20101 · Accepted Answer

Program TaskA;
Var i, n: Integer;
Begin
Randomize;
n := Random(10);
For i := 1 To n Do
WriteLn(Random, ' ');
End.

Program TaskB;
Var i: Integer;
Begin
Randomize;
For i := 1 To 10 Do
WriteLn(Random, ' ');
End.

Program TaskC;
Var i: Integer;
Begin
Randomize;
For i := 1 To 10 Do
WriteLn(Random(11), ' ');
End.

Program TaskD;
Var i: Integer;
Begin
Randomize;
For i := 1 To 10 Do
WriteLn(Random(10), ' ');
End.

Program TaskE;
Var i: Integer;
Begin
Randomize;
For i := 1 To 10 Do
WriteLn(Random(20 + 10 + 1) - 10, ' ');
End.

Program TaskF;
Var i: Integer;
Begin
Randomize;
For i := 1 To 10 Do
WriteLn(Random(122 + 97 + 1) - 97, ' ');
End.

Program TaskG;
Var i, sum: Integer;
BeginRandomize;
For i := 1 To 10 Do
sum := sum + Random(11);
WriteLn(sum);
End.

MOGZ ответил