Для того, чтобы составить трассировочную таблицу, нужно иметь сам алгоритм. Позволю предположить, что там было нечто вроде такого (запись на языке кумир):
алг бинвдес
нач
 цел N2, k, N10
 ввод N2
 k := 1
 N10 := 0
 нц пока N2<>0
 N10 := N10 + mod(N2, 10) * k
 k := k * 2
 N2 := div(N2, 10)
 кц
 вывод N10
кон

Таблица во вложении

0 0

3 года назад

Напишите программу которая запрашивает значения двух переменных и выводит их разность. Приглашение к вводу каждого числа произве

ghjatccbyfk [82]

Uses crt;
var a,b:integer;
begin
writeln('введите первое число');
readln(a);
writeln('введите второе число');
readln(b);
if a>b then writeln(a-b,' первое число больше второго');
if a<b then writeln(b-a,' второе число больше первого');
if a=b then writeln('0 оба числа равны');
end.

0 0

4 года назад

Дан одномерный массив целых чисел. Заменить все четные числа в массиве 0.

Прохор Иванов

Const
n = 20;

var
x: array[1..n] of integer;
i: integer;

begin
Randomize;
Writeln('*** Исходный массив ***');
for i := 1 to n do
begin
 x[i] := Random(101) - 50;
 Write(x[i]:4);
end;
Writeln;
Writeln('*** Результирующий массив ***');
for i := 1 to n do
begin
 if (x[i] mod 2) = 0 then x[i] := 0;
 Write(x[i]:4);
end;
end.

Тестовое решение:
*** Исходный массив ***
-4 -8 42 18 -4 -19 -35 21 19 32 -45 45 -43 -22 -17 -12 11 9 -47 37
*** Результирующий массив ***
 0 0 0 0 0 -19 -35 21 19 0 -45 45 -43 0 -17 0 11 9 -47 37

0 0

4 года назад

Программы фильтры - программное обеспечение:1) внедряющееся в ПЗУ, системное или прикладное ПО и сохраняющее всю или выбранную и

yoy olga

2) да, если речь о кодеках

0 0

4 года назад