Написать программу ** паскаль авс программа должна через функцию определять чётность...

Question

Написать программу на паскаль авс
программа должна через функцию определять чётность кол-ва символов в строке
например: Маша - чётный 4 ; Маша_ - нечётный 5

Answer 1

Var
a: string;
b: integer;
begin
readln(a);
b:=length(a);
if b mod 2 = 0 then writeln('Кол-во символов четное')
else writeln('Кол-во символов нечетное')
end.

Comments

а можешь сделать так чтобы считало кол-во символов?

---

тоесть маша 4

---

мам 3

Answer 2

program MW10; var a:string; var i,k:integer; begin Writeln('Wwedi slovo'); Read(a); for i:= 1 to length(a) do if a[i]='a' then k:=k+1; writeln(k); end.