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.
Type
ty=array[1..60] of integer;
Var
a,b,c:array[1..20] of integer;
ar:ty;
n,m,k,i:integer;
procedure quicksort(var a:ty; Lo,Hi: integer);
procedure sort(l,r: integer);
var
i,j,x,y: integer;
begin
i:=l;
j:=r;
x:=a[random(r-l+1)+l];
repeat
while a[i]<x do
i:=i+1;
while x<a[j] do
j:=j-1;
if i<=j then
begin
if a[i] > a[j] then
begin
y:=a[i];
a[i]:=a[j];
a[j]:=y;
end;
i:=i+1;
j:=j-1;
end;
until i>=j;
if l<j then sort(l,j);
if i<r then sort(i,r);
end;
begin;
randomize;
sort(Lo,Hi);
end;
begin
readln(n);
for i:=1 to n do
begin
readln(a[i]);
ar[i]:=a[i];
end;
readln(m);
for i:=1 to m do
begin
readln(b[i]);
ar[i+n]:=b[i];
end;
readln(k);
for i:=1 to k do
begin
readln(c[i]);
ar[i+n+m]:=c[i];
end;
quicksort(ar,1,n+m+k);
writeln('Final array:');
for i:=1 to n+m+k do
write(ar[i]:4);
end.
Пример ввода:
3
1
2
3
3
1
2
3
3
1
2
3
Пример вывода:
Final array:
1 1 1 2 2 2 3 3 3
begin
var a:=MatrixRandom(3,2,-99,99);
Writeln('Массив А');
for var i:=0 to 2 do begin
for var j:=0 to 1 do Write(a[i,j]:4);
Writeln
end;
var b:=MatrixRandom(3,2,-99,99);
Writeln('Массив B');
for var i:=0 to 2 do begin
for var j:=0 to 1 do Write(b[i,j]:4);
Writeln
end;
var c:array[0..2,0..1] of real;
Writeln('Результирующий массив');
for var i:=0 to 2 do begin
for var j:=0 to 1 do begin
c[i,j]:=a[i,j]*b[i,j]/10; Write(c[i,j]:7:1)
end;
Writeln
end
end.
Тестовое решение
Массив А
-91 -93
-62 9
-97 6
Массив B
-64 18
57 -34
-65 -30
Результирующий массив
582.4 -167.4
-353.4 -30.6
630.5 -18.0