С клавиатуры одной строкой вводят имя и фамилию. Составьте программу, которая выводит...

0 голосов
76 просмотров

С клавиатуры одной строкой вводят имя и фамилию. Составьте программу, которая выводит сначала фамилию,а затем имя.


Информатика (49 баллов) | 76 просмотров
Дан 1 ответ
0 голосов

program pr;

var

s,n:string;

c:char;

i:integer;

begin

writeln('Введите имя и фамилию в одной строке');

readln (s);

i:=1;

while s[i]<>' ' do i:=i+1;

n:=copy(s,1,i-1);

writeln(n);

readln;

end.

(166 баллов)