Написать программу на паскаль авс программа должна через функцию определять чё?
Написать программу на паскаль авс
программа должна через функцию определять чё??ность кол-ва символов в строке
например: Маша - чётный 4 ; Маша_ - нечётный 5
Гость
Ответ(ы) на вопрос:
Гость 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.
Не нашли ответ?
Похожие вопросы