Pascal napisz programik
Wyświetli
wyraz w następujący sposób: duża litera, mała, duża, mała, duża itd.
//licze na naj...
program zad;uses crt;varwyraz:string;x:integer;beginclrscr;writeln('Podaj wyraz: ');readln(wyraz);for x:=1 to length(wyraz) dobeginif ((x mod 2) <> 0) thenbeginwyraz[x]:=UpCase(wyraz[x]);end;end;writeln(wyraz);readln;end.
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
//licze na naj...
program zad;
uses crt;
var
wyraz:string;
x:integer;
begin
clrscr;
writeln('Podaj wyraz: ');
readln(wyraz);
for x:=1 to length(wyraz) do
begin
if ((x mod 2) <> 0) then
begin
wyraz[x]:=UpCase(wyraz[x]);
end;
end;
writeln(wyraz);
readln;
end.