1. Строка записана с ошибкой: if x>a and x≤b then c=a*b
Выберите верный вариант записи строки.
if (x>a) and x≤b then c:=a*b
if x>a and x≤b then c:=a*b
if (x>a) and (x≤b) then c=a*b
if (x>a) and (x<=b) then c:=a*b
2. В результате выполнения фрагмента программы:
а:=20;
b:=a+a/10;
а:=b/11+ 10;
if а else с:=b-а;
3. В результате выполнения фрагмента программы:
а:=4;
b:=20;
а:=а-b/2;
if а>b then с:=а+b
else с:=b-а;
24
28
26
30
4. Какими будут значения j, k после выполнения условного оператора:
if j>k then j:=k*5 else k:=k+2;
Если исходные значения переменных равны j=8, k=2
j=40 k=2
j=40 k=4
j=8 k=2
j=8 k=4
5. Определите результат выполнения команды для x=9:
if x > 0 then
if x < 8 then y:= sqrt (x)
else y:= 2*x+1
writeln(y);
c:array of array of integer;
ma:array of array of integer;
i,j,n:integer;
begin;
randomize;
readln(n);
setlength(a,n+1); //задаём размерность динамических массивов
setlength(c,n+1);
setlength(ma,n+1);
for i:=1 to n do
begin;
setlength(a[i],n+1);
setlength(c[i],n+1);
setlength(ma[i],n+1);
end;
writeln('Matrix A:'); //генерируем массив псеводслучайных чисел
for i:=1 to n do begin;
writeln;
for j:=1 to n do
begin;
a[i,j]:=random(10);
write(a[i,j]:4);
end;
end;
writeln;
writeln('Matrix C:'); //аналогично
for i:=1 to n do
begin;
writeln;
for j:=1 to n do
begin;
c[i,j]:=random(10);
write(c[i,j]:4);
end;
end;
for i:=1 to n do //сохраняем матрицу C для транспонации
for j:=1 to n do
ma[i,j]:=c[i,j];
writeln;
writeln('Transpose matrix C:'); //транспонируем C
for i:=1 to n do
begin;
writeln;
for j:=1 to n do
begin;
c[i,j]:=ma[j,i];
write(c[i,j]:4);
end;
end;
writeln;
writeln('Final matrix:'); // получаем финальную матрицу
for i:=1 to n do
begin;
writeln;
for j:=1 to n do
begin;
ma[i,j]:=2*c[i,j]*a[i,j];
{по свойству дистрибутивности матриц С(A+A)=C*A+C*A=2*C*A}
write(ma[i,j]:4);
end;
end;
end.