polecenie :Program przyjmuje z klawiatury lancuch
znakow zakonczony enterem i szyfruje tekst odejmujac
od kodu Asci wartosc n (szyfr cezara).
program szyfrcezara;
uses crt;
var
k:integer; {licznik szyfrowania}
a: string[5]; {lancuch przyjmujacy 5 znakow}
begin
k:=3;
readln(a);
for a[1] to a[5] do {od 1 do 5 znaku uzyskaj kod asci}
chr(ord(a));
for a[1] to a[5] do {od 1 do 5 znaku odejmij od kodu licznik}
write(a-k); {wypisz zaszyfrowany tekst}
end.
{
bledy: type mismatch
operator is not overloaded
illegal expression
illegal expression}
mam problem z petlami oraz z wyciagnieciem wartosci ascii ze znakow prosze o pomoc
ten program ma wyciagac wartosc znaku ascii i dodac powiedzmy 3 i zastapic znak stary nowym zaszyfrowanym