//PascalABC.NET //Версия 3.3.5, сборка 1650 begin var a:=new integer[6]; var n:=ReadInteger('n='); var t: char; for var i:=0 to n do begin readln(t); if t.Between('0','9') then begin inc(a[0]); if t.ToDigit mod 2=0 then inc(a[1]) else inc(a[2]); end; if t.Between('A','Z') then begin inc(a[3]); if t in ['A','E','Y','U','I','O'] then inc(a[4]) else inc(a[5]); end; end; writeln('количество'); writeln('цифр :',a[0]); writeln('четных: ',a[1]); writeln('нечетных: ',a[2]); writeln('букв: ',a[3]); writeln('гласных: ',a[4]); write('согласных: ',a[5]); end.
Answers & Comments
Verified answer
//PascalABC.NET//Версия 3.3.5, сборка 1650
begin
var a:=new integer[6];
var n:=ReadInteger('n=');
var t: char;
for var i:=0 to n do
begin
readln(t);
if t.Between('0','9') then
begin
inc(a[0]);
if t.ToDigit mod 2=0 then inc(a[1]) else inc(a[2]);
end;
if t.Between('A','Z') then
begin
inc(a[3]);
if t in ['A','E','Y','U','I','O'] then inc(a[4]) else inc(a[5]);
end;
end;
writeln('количество');
writeln('цифр :',a[0]);
writeln('четных: ',a[1]);
writeln('нечетных: ',a[2]);
writeln('букв: ',a[3]);
writeln('гласных: ',a[4]);
write('согласных: ',a[5]);
end.