Diskuze a otázky - Kde v tom je chyba ?
úvodní strana | aktualizovat | dolů
V diskuzi je 28 příspěvků a shlédlo ji 484 uživatelů .
Suarez | 19. 03. 2009, 21:34:46 | více příspěvků | napsat uživateli
jo holka tuto je supa počkej si na crt knihovny z toho chípám já podělaný crt
uživatel eliminován | 19. 03. 2009, 21:22:14
za begin mas mit uvozovky a radek pod ma bejt otaznik!1309!!1309!!1309!!1309!!1309!!1309!
Sariiinka... | 19. 03. 2009, 21:19:44 | více příspěvků | napsat uživateli
Nesnášim pascala !984!, dělam v něm 4 hodině tejdně a umírám !984!
uživatel eliminován | 19. 03. 2009, 21:15:39
ale podle toho jak koukám tak ti za tím předposledním end chybí ; nebo za tím před tím ho máš navíc...
nInJa. | 19. 03. 2009, 21:15:15 | více příspěvků | napsat uživateli
ok, ja vám to teda řeknu !20!!24! neni to dodelany !2!!2!!2!!2!
uživatel eliminován | 19. 03. 2009, 21:13:52
kdybys to měl v jave, v C nebo C++ tak bych ti poradila, ale tohle teda zrovna neumím...
xpusineczkax | 19. 03. 2009, 21:11:19 | více příspěvků | napsat uživateli
mě to celé přijde jako velkej error!1388!
L.ucian.A | 19. 03. 2009, 21:09:47 | více příspěvků | napsat uživateli
!2!!5!!5!!2!!2!!5!!2!!2!!5!!5!!2!
nInJa. | 19. 03. 2009, 21:07:39 | příspěvky uživatele | napsat uživateli
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
i:integer;
s:string;
begin
writeln('Zadejte vety');readln(s);
for i:=1 to length(s) do begin
if (s[i] <> ' ') and (s[i-1] in ['.','!','?']) then begin
case s[i-1] of
'.','!','?' : write(' ',UpCase(s[i]))
else write(s[i]); end; end
else
if(s[i] = ' ') and (s[i-1] in ['.','!','?']) then begin
UpCase(s[i+1]); end end
else write(s[i]);
end;
reagovat