Var i:integer;
begin
i:=1;
while i<100 do
begin
write(i,' ');
i:=i+2
end
<span>end.</span>
Скорее всего D) 1.2.3.4.5.....
А) совокупность всех программ- программное обеспечение. б) операционная система. Сорри, но 3-е я и сам не решил... Такое же задание нам задали...
<span>var a,b,i,s:integer;
begin
readln(a,b);
if a>b then begin s:=a; a:=b; b:=s; end;
s:=0;
for i:=a to b do
if (i>0)and(i mod 4=0) then s:=s+i;
writeln('s = ',s);
end<span>.
Пример:
30 -10
</span><span>s = 112</span></span>