Informatika-cykly

17. prosince 2007 v 20:38 |  INFORMATIKA
program cykly_1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a,b,c,i,j,k:integer;
begin
j:=1;
a:=1;
for i:=10 downto 1 do
begin
j:=a*i;
writeln(j);
end;
writeln;
j:=1;
i:=0;
a:=1;
while i<=9 do
begin
i:=i+1;
j:=a*i;
writeln(j);
end;
writeln;
i:=1;
j:=1;
a:=1;
repeat
j:=a*i;
i:=i+1;
writeln(j);
until i>10;
readln;
end.
 

Buď první, kdo ohodnotí tento článek.

Nový komentář

Přihlásit se
  Ještě nemáte vlastní web? Můžete si jej zdarma založit na Blog.cz.
 

Aktuální články

Reklama