Дана строка. Определить сколько в ней символов *, ; ,: - Pascal ABC

Формулировка задачи:

Помогите создать блок-схему и написать программу


textual

Код к задаче: «Дана строка. Определить сколько в ней символов *, ; ,: - Pascal ABC»

Var s : string;
    a : set of char;
    i, k: integer;
begin
s:='mn,.::::;uiJgu*,.';
a:=['*', ':', ';'];
k:=0;
for i:=1 to length(s) do
    begin
    if (s[i] in A) then inc(k);
    end;
Writeln(k);
Readln;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 4.417 из 5

Источник
Похожие ответы