// PascalABC.NET 3.3
begin
var a := ArrRandomInteger(10); a.Sort;
var b := ArrRandomInteger(10); b.Sort;
var c := new integer[20];
writeln('Array 1:'); a.println;
writeln('Array 2:'); b.println;
var i := 0;
var j := 0;
var k := 0;
while (i < 10) and (j < 10) do
begin
if a[i] < b[j] then
begin
c[k] := a[i];
i := i + 1;
end else begin
c[k] := b[j];
j := j + 1;
end;
k := k + 1;
end;
while i < 10 do
begin
c[k] := a[i];
i := i + 1;
k := k + 1;
end;
while j < 10 do
begin
c[k] := b[j];
j := j + 1;
k := k + 1;
end;
writeln('Merged array:'); c.println;
end.
Перечислены расширения графических файлов.
Номер 9 окажется в этой же точке
Program ryazantsev;
var i,k:integer;
begin
k:=0;
for i:=1 to 105 do if (((i mod 10) mod 2 = 0) and (i mod 3 = 0)) or (i<10) then k:=k+1;
writeln(k)
end.
Таких чисел 25, запустите программу и убедитесь сами.
Решение данной задачи смотрите в прикрепленном скриншоте: