Question

1. Podany program zmodyfikuj tak, aby co druga jego litera była duża np. rObErT
program nazwa;
var
napis:String[25];
i:Byte;
begin
writeln('Podaj tekst: ');
readln(napis);
for i:=length(napis) downto 1 do
writeln(napis[i]);
readln;
end.
2. Wypełnij tablicę 100 elementową przy użyciu pętli for liczbami od 1 do 100

Answer 1

1.

var
napis:String[25];
i:Byte;
begin
writeln('Podaj tekst: ');
readln(napis);
for i:=length(napis) downto 1 do
  if (i mod 2=0) then writeln(napis[i]) else writeln(UpCase(napis[i]));
readln;
end.

 

2.

var i:byte;

     tab:array[1..100] of byte;

begin

 for i:=1 to 100 do tab[i]:=i;

 readln;

end.