Помогите пожалуйста с информатикой. Сам вообще не знаю как решать это.
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;BeginWrite (‘Задайте К =’);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.