Kod: Zaznacz cały
program Miniszyfr;
uses Crt;
const n:20;
var dlugosc: byte;
napis: string[n];
i: integer;
begin
ClrScr;
Writeln('wpisz wyraz');
Readln(napis);
dlugosc:=lenght(napis);
for i:=dlugosc downto 1 do Write (napis[i]);
Readln;
end.
Mogłabym prosić o wyjaśnienie tego "write (napis)". Dlaczego napis i po co to "i"?.
Dzięki.