Program n1;
const n=10;
var a: array[1..n] of integer;
i,sum: integer;
begin
sum:=0;
for i:=1 to n do
begin
readln(a[i]);
if i mod 2=0 then sum:=sum+a[i];
end;
writeln(sum);
end.
For i:= 1 to n do
begin
mas [ i ] := random(100);
if mas [ i ] < 50 then begin
sum1:= sum1 + mas [ i ] ;
inc(count1);
end
else begin
sum2:= sum2 + mas [ i ] ;
inc(count2);
end;
if coun1 >0 then writeln('result1 = ',sum1/count1);
if coun2 >0 then writeln('result2 = ',sum2/count2);
for i:= 1 to n do
if mas [ i ] = x then writeln(A[', i,'] );
end;
В В5 ответом будет 7, точно такой же ответ в B4
Var n,s,a,m:longint;
begin
readln(n,s);
m:=10;
if s mod n=0 then a:=s else a:=s*10;
while a mod n<>0 do
if a mod m=(m-1)
then begin m:=m*10; a:=s*m; end
else a:=a+1;
writeln(a);
end.
Пример:
123 16
<span>16113</span>
<span>2/ точек по вертикали и горизонтали</span>
()()()()()()()()()()()()()()()()