Program stroka; var S, S1: string:
I : byte;
Begin
write ('Введите строку'):
readin (S) ;
S1 :‾' ';
for i:=1 to length (s) do
if S(I) in ('A' ..'Z') then
S1:=S1+chr (ord(s[I])+ (ord('a')-(ord(a'A'
else
S1:=S1+S[I];
writeln (S1) ;
readln
end.
Подсчитать количество заглавных и строчных латинских букв в тексте, введенном пользователем

Program Test;

Var
x: integer; chas: real; str1, str2: string;

Begin

Write('Введите длительность телепрограммы (мин): ');
Readln(X);
Writeln();

if (x < 60) then
begin
if (x < 10) then
Writeln('Миша ляжет спать в 00:0', x)

else
Writeln('Миша ляжет спать в 00:', x)
end

else
begin
chas := x div 60;
x := x mod 60;

if (chas >= 24) then
Writeln('Сегодня Миша спать не ляжет')

else
begin
if (chas < 10) then
str1 := '0' + chas

else
str1 := '' + chas;

if (x < 10) then
str2 := '0' + x

else
str2 := '' + x;

Writeln('Миша ляжет спать в ', str1, ':', str2);
end;
end;

End.

Ну, начнем с того, что есть ли толк от такой рекламы? Реклама нацеленная на определенную аудиторию (например дети/пенсионеры). Если распространить рекламу в непредназначенных местах, эффективности будет 0. Далее пойдем по принципам морали, не этично будет, отправлять рекламу туда, куда не нужно или тому, кто этого не хочет. Такую рекламу могут заблокировать/добавить в черный список проектов и т.д. На ваш вопрос, который кстати развернутый, я дал развернутый ответ. Если остались вопросы - задавайте.

Если мой ответ вам - выберите ответ лучшим.

Заранее