Визначте, який оператор реалізує дію:Збільшувати значення змінної А на 2 доти, доки А<20 *

Repeat A := A+2 Untіl A >= 20;
Repeat A := A+2 Untіl A<20;
If A < 20 Then A := A+2;
Whіle A<20 do A := A+2;

1. первая правая цифра числа показывает число единиц, вторая - число двоек (1·2) , третья - число четверок (2·2), четвертая - число восьмерок (4·2) и т.д. имеем:

111101₂ = 1·1 + 2·0 + 4·1 + 8·1 + 16·1 + 32·1 = 1+4+8+16+32 = 61₁₀

2. число нужно поделить на два, найти остаток. полученный результат снова поделить на два и найти остаток и т.д. остатки, записанные в обратном порядке и есть запись в двоичном исчислении.

65÷2 = 32 (ост.1)

32÷2 = 16 (ост.0) 

16÷2 = 8   (ост.0) 

8÷2 = 4     (ост.0) 

4÷2 = 2     (ост.0) 

2÷2 = 1     (ост.0)

1÷2 = 0     (ост.1)

65₁₀ = 1000001₂     

  1951 г - введен в эксплуатацию первый отечественный компьютер мэсм с хранимой программой, созданный под руководством академика с. а. лебедева.

const alphabet="яабвгдеёжзийклмнопрстуфхцчшщъыьэюя"; var filename: stringprocedure readfile(filename: string); var f: text; s: string; i,k: integer; begin      assign(f,filename);       reset(f);       while not eof (f) do begin { пока не конец файла }            readln (f, s);             for i: = 1 to length(s) do begin              k: =pos(s[i], alphabet);                   if k=1 then k=length(alphabet); {это приколы изза я}                   if k> 1 then s[i]: =alphabet[k-1];         end;             writeln(s);       end;       close(f); end; begin      read(filename);       readfile;       readln; end.

сетевые устройства наверное, если по минимуму