else i:=i+1;
end;
End;
Var A:string; ch:char; N:byte;
Begin
clrscr;
writeln(‘Введіть текст: ‘);
readln(A);
write(‘Введіть шуканий символ: ‘);
readln(ch);
Solution(ch,A,N);
writeln(‘Результуючий текст: ‘,A);
writeln(‘Кількість виконаних вилучень: ‘,N);
readkey;
End.
Домашнє завдання:
• повторити теоретичний матеріал за попередні уроки;
• задачі з запропонованого підручника №419, №424, №426, №430.
