Компьютера)))))))))))))эээх как же легко
Const n=10; m=5;
var
i,j,k:integer;
A:array[1..n] of integer;
B,C:array[1..m] of integer;
begin
writeln('Введите элкменты массива');
for i:=1 to n do readln(a[i]);
j:=0; k:=0;
for i:=1 to n do
if i mod 2=1 then begin j:=j+1; B[j]:=A[i] end
else begin k:=k+1; C[k]:=A[i] end;
writeln('Массив А');
for i:=1 to n do write(A[i],' ');
writeln;
writeln('Массив B');
for i:=1 to j do write(B[i],' ');
writeln;
writeln('Массив C');
for i:=1 to k do write(C[i],' ');
writeln
end.
37:2=18(ост1) 151:2=75(ост1)
Ответ:
250
Объяснение:
Это можно решать через математику, записать уравнение арифметической прогрессии и найти кол-во чисел, но тк задание в разделе информатики, то просто приведу код
kol = 0
for i in range(1, 1503):
if i % 6 == 0:
kol += 1
print(kol)
VB.
Dim i As Integer
Dim Massiv() As Integer
For i = 0 To Massiv.Length - 1
Massiv(i) += 4
<span>Next</span>