Написать программу на паскаль авс
программа должна через функцию определять чётность кол-ва символов в строке
например: Маша - чётный 4 ; Маша_ - нечётный 5
program MW10;var a:string;var i,k:integer;beginWriteln(Wwedi slovo);Read(a);for i:= 1 to length(a) doif a[i]=a then k:=k+1;writeln(k);end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
