Question

Помогите пожалуйста с информатикой. Сам вообще не знаю как решать это. 1 вопросЗапишите значение переменной s, полученное в результате работы следующей программы. Var s,k: integer;Begins := 1;for k := 3 to 7 dos := s * 2;writeln(s);End.2 вопросКакое число будет напечатано после работы приведенной ниже программы, если при вводе переменная К получит значение 4?Var K,n,F1,F2,P : Byte;Begin Readln(K); F1 := 1; F2 := 1; n := 1; Repeat n := n + 1; P := F1 + F2; F2 := F1; F1 := P Until n > K; Writeln (‘P=’,P:3) End. 3 вопросЗапишите значение переменной s, полученное в результате работы следующей программы. Var s,k: integer;Begins := 1;for k := 4 to 8 dos := s + 7;writeln(s);End.4 вопросКакое число будет напечатано после работы приведенной ниже программы, если при вводе переменная К получит значение 5?Var K,n,F1,F2,P : Byte;Begin Readln(K);F1 := 1; F2 := 1; n := 1;Repeat n := n + 1; P := F1 + F2; F2 := F1; F1 := P Until n > K; Writeln (‘P=’,P:3)End. 5 вопросКакое число будет напечатано после работы приведенной ниже программы, если при вводе переменная К получит значение 4?Var K,n,F1,F2,P : Byte;Begin Write (‘Задайте К =’);Readln(K);F1 := 1; F2 := 1; n := 2; While n <= K do Begin P := F1 + F2; n := n + 1; F2 := F1; F1 := P End; Writeln (‘P=’,P:3) End. ​

Answer 1

Ответ:

Объяснение:

Решить такое можно только на компьютере.

Answer 2

Конечно, я помогу вам разобраться с этими задачами. Давайте рассмотрим каждый вопрос по отдельности.

1 вопрос:

pascalCopy code
Var s,k: integer;
Begin
  s := 1;
  for k := 3 to 7 do
    s := s * 2;
  writeln(s);
End.

Здесь программа присваивает начальное значение s равное 1, а затем выполняет цикл от 3 до 7 (включительно) и на каждой итерации умножает s на 2. Таким образом, значение s будет равно 1 * 2 * 2 * 2 * 2 * 2 = 32.

2 вопрос:

pascalCopy code
Var K,n,F1,F2,P : Byte;
Begin
  Readln(K);
  F1 := 1;
  F2 := 1;
  n := 1;
  Repeat
    n := n + 1;
    P := F1 + F2;
    F2 := F1;
    F1 := P
  Until n > K;
  Writeln ('P=', P:3);
End.

В данной программе вычисляется число Фибоначчи, используя две предыдущие числа. Если K равно 4, то программа вычислит 5-е число Фибоначчи, которое равно 5.

3 вопрос:

pascalCopy code
Var s,k: integer;
Begin
  s := 1;
  for k := 4 to 8 do
    s := s + 7;
  writeln(s);
End.

Здесь программа присваивает начальное значение s равное 1, а затем выполняет цикл от 4 до 8 (включительно) и на каждой итерации прибавляет к s значение 7. Таким образом, значение s будет равно 1 + 7 + 7 + 7 + 7 + 7 = 36.

4 вопрос:

pascalCopy code
Var K,n,F1,F2,P : Byte;
Begin
  Readln(K);
  F1 := 1;
  F2 := 1;
  n := 1;
  Repeat
    n := n + 1;
    P := F1 + F2;
    F2 := F1;
    F1 := P
  Until n > K;
  Writeln ('P=', P:3);
End.

В данной программе также вычисляется число Фибоначчи, но начинается с 1-го числа. Если K равно 5, то программа вычислит 6-е число Фибоначчи, которое равно 8.

5 вопрос:

pascalCopy code
Var K,n,F1,F2,P : Byte;
Begin
  Write ('Задайте К =');
  Readln(K);
  F1 := 1;
  F2 := 1;
  n := 2;
  While n <= K do
  Begin
    P := F1 + F2;
    n := n + 1;
    F2 := F1;
    F1 := P
  End;
  Writeln ('P=', P:3);
End.

В этой программе вычисляется число Фибоначчи начиная с 2-го числа и до K. Если K равно 4, то программа вычислит 4-е число Фибоначчи, которое равно 3.

Если у вас остались дополнительные вопросы или что-то не ясно, пожалуйста, не стесняйтесь спрашивать!