четверг, 20 октября 2016 г.

К 25 и 27 октября возьмите шаблон и вставьте все пункты сам работы, так легче будет понять!

program stroka;
var s:string ;b:char; k,i,n:integer;
Begin
write('Введите строку'); read(s);
write('Введите букву'); read(b);
n:=length(s);








end.

Комментариев нет:

Отправить комментарий