<span>program matrica;
Var
i,j,n:integer;
a:array[1..50,1..50] of integer;
Begin
Writeln('Введите размерность матрицы:');
Readln(n);
for i:=1 to n do
begin
Writeln('Ввод ',i,' строки');
for j:=1 to n do
begin
Write('A[',i,',',j,']=');
Readln(A[i,j]);
end;
end;
writeln;
writeln('Исходная матрица:');
for i:=1 to n do
begin
for j:=1 to n do
write(A[i,j],' ');
writeln;
end;
for i:=1 to n do
for j:=i to n do
if a[i,j]=a[j,i] then
Writeln(a[i,j],' i=',i,' j=',j);
End.</span>
Как - то так
uses crt;
var x,ans:integer;
begin
ans:=0;
read(x);
while x<>0 do
begin
if (x MOD 2)=0 then
ans:=ans+1;
read(x);
end;
writeln(ans);
end.<span>
</span>
После выполнения фрагмента алгоритма мы получаем значение переменной, которое равно
а = 20
Ответ:
Восьмеричная: 76=114
Двоичная: 2618=101000111010
Объяснение:
Надеюсь помог вам.
Var x,y:real;
begin
write('x = ');
readln(x);
if x<=3
then y:=x*x-3*x+3 else y:=1/(x*x+6);
writeln('y = ',y);
end.
Пример:
<span>x = 2
y = 1</span>