Neregistrovaný Přihlásit Registrovat

Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailem Prosba o pomoc pri programování jednodůchého programu v delphi

Kompletní domácí úkol pro Delphi:

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  s: string;
  i: Integer;
begin
  Write('Zadejte vetu: ');
  ReadLn(s);
  for i := Length(s) downto 1 do
    Write(s[i]);
  Readln(s);  // jen pockame na stisk klavesy
end.

P.S. opravena spodni hranice cyklu po upozorneni MM

Reakce na odpověď

1 Zadajte svou přezdívku:
2 Napište svou odpověď:
3 Pokud chcete dostat ban, zadejte libovolný text:

Zpět do poradny