var X,Y:array[1..102] of integer; mult,i,j:integer;
begin for i:=1 to 6 do readln(x[i]); j:=1; i:=1; mult:=1; while i<=6 do begin mult:=mult*X[i]; if i mod 3 = 0 then begin Y[j]:=mult; mult:=1; j+=1; end; i+=1; end; for i:=1 to 6 do writeln(y[i]); end.
0 votes Thanks 0
denisstep99
Короч если надо как-то по-другому, то кричи в комменты.
Answers & Comments
var
X,Y:array[1..102] of integer;
mult,i,j:integer;
begin
for i:=1 to 6 do
readln(x[i]);
j:=1; i:=1;
mult:=1;
while i<=6 do
begin
mult:=mult*X[i];
if i mod 3 = 0 then
begin
Y[j]:=mult;
mult:=1;
j+=1;
end;
i+=1;
end;
for i:=1 to 6 do
writeln(y[i]);
end.