Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Дан текст из строчных латинских букв и цифр ,определить чего больше в этом тексте букв или цифр. Программа на языке паскаль АВС(извините версию не знаю)

Ответ оставил Гость

// 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    else Writeln(В тексте букв и цифр поровну)
end.

Тестовое решение:
Введите текст: the equation 3.546x^2+4.18x-4.1=0
В тексте больше букв