Изначально переменная a=1, a переменная b=-10
Задается вопрос. a=1024?
Изначально нет, а значит идем дальше.
a=a*4=1*4=4
b=b+a=-10+4=-6
Возвращаемся обратно
Задается вопрос. a=1024?
Нет, а значит
a=a*4=4*4=16
b=b+a=-6+16=10
Возвращаемся обратно
Задается вопрос. a=1024?
Нет, а значит
a=a*4=4*16=64
b=b+a=74
Возвращаемся обратно
Задается вопрос. a=1024?
Нет, а значит
a=a*4=64*4=256
b=b+a=256+74=330
Возвращаемся обратно
Задается вопрос. a=1024?
Нет, а значит
a=a*4=256*4=1024
b=b+a=330+1024=1354
a=1024
b=1354
Цикл заканчивается
1. program ex1;
uses crt;
var i, count : integer;
begin
count:=0;
for i:=1 to 9999 do
begin
if (i mod 5 = 0) and (i mod 7 = 0) then
begin
writeln(i);
count:=count+1;
if count=10 then
break;
end;
end;
end.
2. program ex2;
var sum, count, n : integer;
begin
count:=0;
n:=9999;
sum:=0;
while not (n = 0) do
begin
readln(n);
if (not n mod 2 = 0) and (n>0) then
begin
sum:=sum+n;
count:=count+1;
end;
end;
writeln('Ср. арифм. = ', sum/count);
end.
3. program ex1;
var price, i: integer;
begin
write('Введите цену товара за 1 кг. :');
readln(price);
for i:=1 to 15 do
write(i:6, '|');
writeln();
for i:=1 to 15 do
write('-------');
writeln();
for i:=1 to 15 do
write((price/10*i):6,'|');
end.
В девятеричной.
Складываем у 28+61 младшие разряды. 8+1=9, а у нас стоит 0, как хвостик от 10. А 0 дает только сумма в системе, у которой основание равно сумме в системе десятичной, т.е. у нас это 9.
Например, 3+4=10 в семеричной (3+4=7), 2+6=10 в восьмеричной (2+6=8).
9*1024*1026*8 = 75497472 бит
