15.01.2016, 00:11
|
#6 (permalink)
|
Новичок
Регистрация: 12.01.2016
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
Сообщение от Vladimir_S
Госс-споди, да что Вы там накрутили-то? На кой пёс Вам коды?! Уж если Вы считываете вводимое число, как строку, так и выводите первый и последний символы, да и всё тут! Например, так:
Код:
Program Lab51;
procedure Poisk(an:string);
var
i:integer;
Frst,Lst:Char;
begin
i:=Length(an);
Frst:=an[1];
Lst:=an[i];
Writeln('Pervaya cifra = ',Frst);
Writeln('Poslednyaya cifra = ',Lst);
end;
var
s:string;
begin
Writeln('Cislo:');
Readln(s);
Writeln;
Poisk(s);
end.
|
Спасибо большое!
|
|
|