Дан текст из строчных латинских букв и цифр ,определить чего больше в этом тексте букв или цифр. Программа на языке паскаль АВС(извините версию не знаю)
Дан текст из строчных латинских букв и цифр ,определить чего больше в этом тексте букв или цифр. Программа на языке паскаль АВС(извините версию не знаю)
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.0, сборка 1111
const
alpha=['a'..'z'];
digits=['0'..'9'];
var
na,nd,i:integer;
s:string;
begin
na:=0; nd:=0;
Write('Введите текст: '); Readln(s);
for i:=1 to Length(s) do
if s[i] in alpha then Inc(na)
else
if s[i] in digits then Inc(nd);
if na>nd then Writeln('В тексте больше букв')
else
if na
Не нашли ответ?
Похожие вопросы