jushtis
-
Pranešimai
134 -
Užsiregistravo
-
Lankėsi
-
Atsiliepimai
0%
Reputacijos išklotinė
-
jushtis gavo reakciją nuo Goldshare Pascal pagalba
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.
-
jushtis gavo reakciją nuo agnek21 Pascal (Ciklas for)
Cia juk klausia kiek laiko sugais kiekvienas klientas.
Program SugaistasLaikas;
var i, n, t, x : Integer;
Begin
WriteLn('Kiek laiko skiriama 1 zmogui?:');
ReadLn(t);
WriteLn('Kiek zmoniu eileje?:');
ReadLn(n);
x := 0;
For i := 1 to n do
Begin
x := x+t;
WriteLn(i, ' zmogus sugais laiko: ', x);
End;
ReadLn;
End.
-
-
-
-
-
-
-
-