Lab.Algoritma.Program menggunakan for i

05.57 Melek.it

Program  1,2,3,4,5
uses crt;
var
a,b:integer;
begin
clrscr;
for b:= 1 to 5 do
begin
write (a);
a:= a+2;
end;
readln;
end.

Program 1,0,3,2,5,4,7,6,9,8
uses crt;
var
a,b,c:integer;
begin
clrscr;
a:= 1;
b:= 0;
for c:= 1 to 5 do
begin
write (a);
write (b);
a:= a + 2 ;
b:= b + 2 ;
end;
readln;
end.