3.Заполните таблицу трассировки для тестирования программного кода.

var x1, x2, x3, y1, y2, y3, p: real;

function len(x1, y1, x2, y2: real): real; begin len : = sqrt(sqr(x2 - x1) + sqr(y2 - y1)); end;

begin readln(x1, y1, x2, y2, x3, y3); p : = len(x1, y1, x2, y2) + len(x1, y1, x3, y3) + len(x2, y2, x3, y3); writeln(p: 8: 3); end.

16 - 2^4 - 4 бита = 0.5байт

256 - 2^8 - 8 бита = 1байт

128 - 2^7 - 7 бита

4 - 2^2 - 2 бита = 0.25байт

512*1024*8 =  4`194`304 бит

640*480 = 307`200 бит

4 - 6

16 - 3

128 - 1

256 - 1

pascal

program tovar;

var i,k: integer; t,s: real;

begin

s: =0;  

writeln ('vvedit kol-vo tovara');

readln (k);

for i: =1 to   k do

begin

writeln ('vvedit stoimost',i,'-go tovaru');

readln (t);

s: =t+s;

end;

writeln ('stoimost pokupok-',s);

readln

end.