Cоставте программу которая вычесляет произведение 10 произвольных целых двухзначных чисел (Цикл с предусловием ,Pascal)
Answers & Comments
andrfk
Var a: array[1..10] of integer; i,s:integer; begin for i:=1 to 10 do read(a[i]); i:=1; s:=1; while i<=10 do begin s:=s*a[i]; inc(i); end; writeln(s); end.
Answers & Comments
a: array[1..10] of integer;
i,s:integer;
begin
for i:=1 to 10 do
read(a[i]);
i:=1;
s:=1;
while i<=10 do begin
s:=s*a[i];
inc(i);
end;
writeln(s);
end.
begin
z:=10;
y:=1
while z>0
begin
z:=z-1;
read(x);
y:=x*y;
end;
write(y);
end.