Program z_1; var i : integer;
s : string;
begin
s := 1;
for i := 10 to 99 do
if (i mod 13 = 0) and (i mod 2 <> 0) then
s := s * i;
writeln('proizvedenie = ',s);
readln;
end.
Дана задача объяснить три строки:
s := 1;
for i := 10 to 99 do
if (i mod 13 = 0) and (i mod 2 <> 0) then
s : string;
begin
s := 1;
for i := 10 to 99 do
if (i mod 13 = 0) and (i mod 2 <> 0) then
s := s * i;
writeln('proizvedenie = ',s);
readln;
end.
Дана задача объяснить три строки:
s := 1;
for i := 10 to 99 do
if (i mod 13 = 0) and (i mod 2 <> 0) then
More Questions From This User See All