Заполни трассировочную таблицу по алгоритму:

04₁₀ = 100₂

10₁₀ = 1010₂

1996₁₀ = 11111001100₂

паскаль

откомпилирован в: pascal abc

program z1; uses crt; var    s: string;     c: char;     i: integer; begin        write('  vvedite strocy:   ');         readln(s);                 writeln();                 write(' vvedite sivol dl poiska:   ');         readln(c);                 writeln();         for i : = 1 to length(s) do         if s[i] = c then //        begin                  writeln(' simvol prinadlech stroce = ', s);                   break;         end;         if s[i] < > c then writeln(' simvola net v stroke = ', s); end.

если под ячейкой поодразумевается байт (восемь бит) то:

(для беззнаковых (натуральных с нулём) )

или

- (для знаковых (целых) ) 

var

i,s: integer;

begin

s: =0;

for i: =2 to 5 do

s: =s+i*i;

writeln(s);

end.