Я готуюсь до курсу інформатики. Алгоритмізація та програмування

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.