Var a: string; i,n: integer; begin write('введите слово '); readln(a); n: =length(a); writeln('введите номер буквы '); readln(i); delete(a,i,1); writeln(a); readln; end.
Спасибо
Ответ дал: Гость
михаил - футбол,велоспорт.
николай - теннис, волейбол.
михаил - баскетбол, плавание.
решение: так как михаил не увликаеться велоспортом, волейболом и тенисом значет он занимаеться плаванием. тогда получаеться что тенисист - николай и потому как он самый старший то павел будет велосипедистом из этого выходит что волейболистом будет николай.
Ответ дал: Гость
var s: string; i: longint; begin readln(s); for i: =length(s) downto 1 do begin if s[i]=' ' then delete(s,i,1); if (s[i]> ='1')and(s[i]< ='9') then delete(s,i,1); end; writeln(length(s)); end.
Популярные вопросы