Pascal pagalba

Gal kas galit padėt tokias programas parašyt? :S

1. Stulpeliu atspausdinkite skaičius nuo 10 iki 45.

2. Priverskite kompiuterį n kartų atspausdinti ekrane jūsų vardą.

3. Susumuokite klaviatūra įvedimą skaičių seką (seka baigiama neigiamu skaičiumi).

Labai, labai dėkuj.

Pirmą jau pasirašiau :)

2.

Program JusuVardas;
var i, n : Integer;
   v : Word;

Begin
 WriteLn('Koks jusu vardas?:');
 ReadLn(v);
 WriteLn('Kiek kartu spausdinti?:');
 ReadLn(n);
 For i := 1 to n do
  WriteLn(v);
 ReadLn;
End.

3.

Program Srka;
var n, s : Integer'

Begin
 WriteLn('Veskite seka po 1 skaiciu?');
 s := 0;
 While n >= 0 Do
  Begin
   ReadLn(n);
   s := s+n;
  End;
 WriteLn('Sekos suma: ', s);
 ReadLn;
End.

2.

Program JusuVardas;
var i, n : Integer;
   v : Word;

Begin
 WriteLn('Koks jusu vardas?:');
 ReadLn(v);
 WriteLn('Kiek kartu spausdinti?:');
 ReadLn(n);
 For i := 1 to n do
  WriteLn(v);
 ReadLn;
End.

 

3.

Program Srka;
var n, s : Integer'

Begin
 WriteLn('Veskite seka po 1 skaiciu?');
 s := 0;
 While n >= 0 Do
  Begin
   ReadLn(n);
   s := s+n;
  End;
 WriteLn('Sekos suma: ', s);
 ReadLn;
End.

Ačiū, antrą atsiskaičiau, pats sugebėjau šeip ne taip, bet trečios ne, bandžiau tavo versija, bet neveikia :)

Ačiū, antrą atsiskaičiau, pats sugebėjau šeip ne taip, bet trečios ne, bandžiau tavo versija, bet neveikia :)

Program Seka;
var n, s : Integer;

Begin
 WriteLn('Veskite seka po 1 skaiciu?');
 s := 0;
 While n >= 0 Do
  Begin
   ReadLn(n);
   s := s+n;
  End;
 WriteLn('Sekos suma: ', s);
 ReadLn;
End.

Veikia. Pats katik bandziau, tik gal nesupratai salygos paskutini skaiciu sekos turi ivesti minusini, nes salyga sako kad seka baigias minusiniu skaiciumi

Ko gero tau reikia štai ko (o gal ir ne :) ) :

program Seka;
var
                 suma : longint;
    ived, min, max, i : integer;
begin
 WriteLn('Labas, vesk kol pirštai paskaus');
 ived := 0;
 suma := 0;
 min := 9999;
 max := -1;
 while ived >= 0 do
   begin
       ReadLn(ived);
       if ived > max
           then max := ived;
       if (ived < min) and (ived >= 0)
           then min := ived;
   end;
 for i := min to max do
   suma := suma + i;
 WriteLn('Skaičių sekos suma lygi :', suma);
 Readln;
end.