Pascal, использование вспомогательных строк. - есть ответ

Ответы:

750 RUR

Graner

var
s:string;
i, x_1, x_2 : integer;
c:char;
begin
i:=0; x_1:=0; x_2:=0;

s:='StRoKa 12345';

for i:=0 to length(s) do
begin
c:=s[i];
if ((c<='9') and (c>='0')) then x_1:=x_1+1;
if ((c<='Z') and (c>='A')) then x_2:=x_2+1;
end;

if ((x_1+x_2)=0) then writeln('Cifr i zaglavnyh net');
if ((x_1)<(x_2)) then writeln('bolshe zaglavnyh');
if ((x_1)>(x_2)) then writeln('bolshe cifr');

readln();
end.

11 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.