Pascal ciklas for

Gal galite padėti išspresti uždavinius:

http://img577.imageshack.us/img577/2716/viewerwo.png

Gal galite padėti išspresti uždavinius:

 

http://img577.imageshack.us/img577/2716/viewerwo.png

1. Kas laikoma sekos pabaiga? Tuščias elementas? 0?

Parašyk, kiek pats esi padaręs. Už tave čia užduočių niekas nedarys.

antra programa:

program Noname0;
  var i:integer;
begin
 for i:=100 to 999 do
 begin
 if (i mod 6 = 0)
 then
 writeln(i);
 end;
 readln();
end.

ketvirta:

program Noname0;
  var i,s:integer;
begin
s:=0;
 for i:=10 to 99 do
 begin
 if (i mod 2 = 1)
 then
 s:=s+i;
 end;
 writeln(s);
 readln();
end.

penkta lygtais tokia:

program Noname0;
  var i,s,m,n:integer;
begin
s:=0;
writeln('Iveskite skaiciu m');
readln(m);
writeln('Iveskite skaiciu n');
readln(n);
if (m=0) or (n=0)
then
writeln('prasome ivesti teigiamus skaicius')
else
 for i:=m to n do
 begin
 s:=i*n;
 writeln(s);
 end;
 readln();
end.

penkta lygtais tokia:

 

program Noname0;
  var i,s,m,n:integer;
begin
s:=0;
writeln('Iveskite skaiciu m');
readln(m);
writeln('Iveskite skaiciu n');
readln(n);
if (m=0) or (n=0)
then
writeln('prasome ivesti teigiamus skaicius')
else
 for i:=m to n do
 begin
 s:=i*n;
 writeln(s);
 end;
 readln();
end.

Nelabai supratau kodėl šitą programą taip parašei, nes kaip supratau sąlygą ten prašo sandaugos visų sveikųjų skaičių (išskyrus nulio, nes tada sandauga būtų 0) iš intervalo [m; n]. Tai programa manau turėtų atrodyti taip:

program programa;

var i,
   m, n,
   san:longint;
Begin
san := 1;
write('Iveskite m: '); readln(m);
write('Iveskite n: '); readln(n);

for i:=m to n do
   if i <> 0 then san *= i;

writeln(san);
readln;
End.

Nelabai supratau kodėl šitą programą taip parašei, nes kaip supratau sąlygą ten prašo sandaugos visų sveikųjų skaičių (išskyrus nulio, nes tada sandauga būtų 0) iš intervalo [m; n]. Tai programa manau turėtų atrodyti taip:

 

program programa;

var i,
   m, n,
   san:longint;
Begin
san := 1;
write('Iveskite m: '); readln(m);
write('Iveskite n: '); readln(n);

for i:=m to n do
   if i <> 0 then san *= i;

writeln(san);
readln;
End.

jo. tu teisus. nelabai idemiai perskaiciau salyga. bet ziuriu autoriui jau nereikia situ programu.