English
English
Slovensky
Slovensky
Česky
Česky
Šarišsky
Šarišsky
Kategória: Reťazce

Autor: Juraj Pupák
Program: Meno_pri.pas
Vyžiada si meno a priezvisko. Z nich určí priezvisko.
Zobrazené: 1878x


{ MENO_PRI.PAS                                                      }
{ Vyziada si meno a priezvisko. Z nich urci priezvisko.             }
{                                                                   }
{ Author: Juraj Pupak                                               }
{ Date  : 27.10.2006                           http://www.trsek.com }
 
program Meno_Priezvisko;
uses crt;
  var
    udaje : string;
    i,i_1 : integer;
    dlzka_retazca : integer;
    priezvisko : string;
    
begin
  clrscr;
  writeln('Zadaj meno a priezvisko');
  readln(udaje);
  clrscr;
  dlzka_retazca := length(udaje);
  For i := 1 To dlzka_retazca Do
    begin
      If udaje[i] = ' ' THEN
        begin
          For i_1 := i To dlzka_retazca Do
            begin
              priezvisko := priezvisko + udaje[i_1 + 1];
            end;
          writeln(priezvisko);
        end;
    end;
  readln;
end.
 
 

[Uložiť] [Tlač] [Poslať e-mailom]