4 года назад

Запишите алгоритм для исполнителя вычислитель содержащий не более 5 команд: получения из числа 3 числа 16

Знания

Информатика

1 ответ:

0150 [212]4 года назад

0 0

(3 - 1) * 3 * 3 - 1 - 1 = 16
Последовательность команд: 12211

Читайте также

ПАСКАЛЬ!!! Изменить текст программы примера №2 так, чтобы программа обменивала максимальный элемент матрицы и первый элемент пер

ALEKS525

Var A : array [1..4, 1..4] of integer ;
i,j, p,k: integer ;
Begin
randomize;
k:=1; p:=1;
For i:=1 to 4 do
Begin
    For j:=1 to 4 do
    Begin
      A[i,j]:=random (100);
      if A[i,j]>A[k,p] then
      begin
        k:=i;
        p:=j;
      end;
      Write(A[i,j]:3);
    end;
    Writeln;
end;

writeln ('Максимальный элемент матрицы = ', A[k,p]);
write ('Он находится в строке №' , k);
writeln (' и в столбце №' , p);
Writeln('Меняем максимальный элемент матрицы и первый элемент первой строки:');
i:=A[k,p];
A[k,p]:=A[1,1];
A[1,1]:=i;
For i:=1 to 4 do
Begin
    For j:=1 to 4 do Write(A[i,j]:3);
    Writeln;
end;
end.

0 0

3 года назад

Составить программу нахождения суммы чисел четырехзначного числа

Vasekkk1

Program exs;

var a, i, sum : integer;

begin

sum:= 0;

readln(a); {Считывание числа}

for i:= 1 to 4 do begin

sum:=sum + (a mod 10); {Находим остаток от деления на 10}

a:=a div 10; {Выкидываем найденную цифру из числа}