Подсчитать количество положительных чисел среди чисел а, б,с (блок схемы-ветвление)

2000 - k

16 бита - i

v=k*i=2000*16=32000 бита=4000 байтов

3*2=6128*512*6=393216ъ128+512=640640: 10=6464*6=384кб

for a : = 1 to 20 do

begin

    writeln(a,"^2 = ", a*a);

end

или

a: = 1;

repeat

    writeln(a,"^2 = ", a*a);

    a : = a + 1;

until a > 20;

var a: integer; c1, c2, c3, c4: integer;

begin for a : = 1000 to 9999 do begin c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln(a); end; end.