Разложение V и I делается для облегчения сокращения. Если что-то непонятно - пиши.
<span>На відміну від Microsoft Word в Microsoft Excel можливо тільки:
</span>
А) орієнтація
сторінки
Б) розмір пареру
В) розмір лівого,
правого, верхньго та нижнього полів.
<span>
</span>
Var i,n,k:integer;
begin
writeln('i':4,'i*i':6);
for i:=1 to 10 do begin
n:= i * i;
writeln(i:4,n:5);end;
<span>end.</span>
<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>
Var ar:array[1..20] of integer;
k,l,a,b:integer;
begin
randomize;
readln(k);
readln(l);
for a:=1 to 20 do
ar[a]:=random(a);
for a:=k to l do
b:=b+ar[a];
writeln(b);
end.