Var a,b,c,d,res:integer;
begin
writeln('Введите первое число');
readln(a);
writeln('‚Введите второе число');
readln(b);
writeln('Введите третье число');
readln(c);
writeln('‚Введите четвертое число');
readln(d);
res:=a;if b<res then res:=b;
if c<res then res:=c;
if a<res then res:=d;
writeln('—Ёб«® ',res,' б ¬®Ґ ¬ «ҐмЄ®Ґ');
readln;
end.
мог бы и побольше баллов поставить)
Для того, чтобы составить трассировочную таблицу, нужно иметь сам алгоритм. Позволю предположить, что там было нечто вроде такого (запись на языке кумир):
алг бинвдес
нач
цел N2, k, N10
ввод N2
k := 1
N10 := 0
нц пока N2<>0
N10 := N10 + mod(N2, 10) * k
k := k * 2
N2 := div(N2, 10)
кц
вывод N10
<span>кон
</span>
Таблица во вложении
Тут просто, смотри, цифра 1 означает 2, 2-4, 3-8, 4-16, 5-32 (Число каждый раз увеличивается в 2 раза).Теперь всё складываем, и получаем 0+4+8+64=72. У 8-9 классов похожие задачи есть
Turbo Pascal
1)USES CRT;
VAR A:array[1..10] of integer;
i:integer;
BEGIN
CLRSCR;
For i:=1 to 10 do
begin
A[i]:=i+i+1;
Write(A[i],' ');
end;
READLN;
<span>END.
2)
USES CRT;
VAR A:array[1..10] of integer;
i:integer;
BEGIN
CLRSCR;
For i:=1 to 10 do
begin
A[i]:=i+i+i;
Write(A[i],' ');
end;
READLN;
<span>END.</span></span>
Переведем 159 в двоичную сс. 100101111
ответ: 3