1-3 арбуза лёгкий вот первая
А) var a,i,su,ss:integer;begina:=1;ss:=0;su:=1;for i := 1 to 3 dobeginss:=ss+a;su:=su*a; a:=a+2;end;writeln(ss,' ',su);<span>end.
Б)</span>var a,i,su,ss:integer;begina:=2;ss:=0;su:=1;for i := 1 to 3 dobeginss:=ss+a;su:=su*a; a:=a+2;end;writeln(ss,' ',su);<span>end.
В)</span>var a,i,su,ss:integer;begina:=3;ss:=0;su:=1;for i := 1 to 3 dobeginss:=ss+a;su:=su*a; a:=a+3;end;writeln(ss,' ',su);<span>end.
Г)</span>var a,i,su,ss:integer;begina:=4;ss:=0;su:=1;for i := 1 to 3 dobeginss:=ss+a;su:=su*a; a:=a+4;end;writeln(ss,' ',su);<span>end.</span>
100111 в 2 + 11001 в 2 = 1000000 в 2
1000000 в 2 - 100111 в 2 = 11001 в 2
Надеюсь тут не надо все подробно описывать.
Ответ:
(1000+192)÷1 024=1,1640625кбайт