написать программу на паскаль авс программа должна через функцию определять чётность кол-ва символов в строке например: Маша - чётный 4 ; Маша_ - нечётный 5
Answers & Comments
hipsyjarvisprogram 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.
Answers & Comments