1
Запишите значение переменной s, полученное в результате работы следующей программы.
Var s,k: integer;
Begin
s := 0;
for k := 3 to 7 do
s := s + 6;
writeln(s);
End.
2
Какое число будет напечатано после работы приведенной ниже программы, если при вводе переменная К получит значение 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.
3
Запишите значение переменной s, полученное в результате работы следующей программы.
Var s,k: integer;
Begin
s := 4;
for k := 4 to 8 do
s := s + 7;
writeln(s);
End.
4
Какое число будет напечатано после работы приведенной ниже программы, если при вводе переменная К получит значение 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.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.
Объяснение:
Схе́ма Го́рнера (или правило Горнера, метод Горнера, метод Руффини-Горнера) — алгоритм вычисления значения многочлена, записанного в виде суммы мономов (одночленов), при заданном значении переменной. Метод Горнера позволяет найти корни многочлена[1], а также вычислить производные полинома в заданной точке. Схема Горнера также является простым алгоритмом для деления многочлена на бином вида {\displaystyle x-c}x-c. Метод назван в честь Уильяма Джорджа Горнера, однако Паоло Руффини опередил Горнера на 15 лет, а китайцам этот был известен еще в XIII веке.
i,j,n:integer;
m: array[1..10,1..10] of integer;
flag:boolean;
sum: array[0..1] of longint;
begin
readln(n);
flag:=true;
for i:=1 to n do
begin
for j:=1 to n do
read(m[i,j]);
readln;
end;
//Проверяем строки
i:=1;
for j:=1 to n do
sum[i mod 2]:=sum[i mod 2]+m[i,j];
while ((i<n) and flag) do
begin
i:=i+1;
for j:=1 to n do
sum[i mod 2]:=sum[i mod 2]+m[i,j];
if sum[0]<>sum[1] then flag:=false;
sum[(i+1) mod 2]:=0;
end;
//Проверяем столбцы
sum[0]:=0;
sum[1]:=0;
j:=1;
for i:=1 to n do
sum[j mod 2]:=sum[j mod 2]+m[i,j];
while ((j<n) and flag) do
begin
j:=j+1;
for i:=1 to n do
sum[j mod 2]:=sum[j mod 2]+m[i,j];
if sum[0]<>sum[1] then flag:=false;
sum[(j+1) mod 2]:=0;
end;
sum[0]:=0;
sum[1]:=0;
j:=1;
for i:=1 to n do
begin
sum[0]:=sum[0]+m[i,j];
sum[1]:=sum[1]+m[n-i+1,j];
j:=j+1;
end;
if sum[0]<>sum[1] then flag:=false;
if flag then writeln('Магический');
end.