Написать программу на паскаль авс программа должна через функцию определять чётность кол-ва символов в строке например: Маша - чётный 4 ; Маша_ - нечётный 5
Написать программу на паскаль авс
программа должна через функцию определять чётность кол-ва символов в строке
например: Маша - чётный 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.
Гостьvar
a: string;
b: integer;
begin
readln(a);
b:=length(a);
if b mod 2 = 0 then writeln('Кол-во символов четное')
else writeln('Кол-во символов нечетное')
end.
Не нашли ответ?
Похожие вопросы