Ввести фамилию, имя и отчество как одно данное строкового типа. определить длину строки и количество букв "а" в ней; вывести три буквы (свои инициалы) с точкам. в делфи.
begin readln(s); s := Trim(s); writeln('Length = ', length(s)); for i := 1 to length(s) do begin if s[i] = 'а' then a := a + 1; if (i = 1) or (s[i - 1] = ' ') then fio := fio + UpCase(s[i]) + '.'; end; writeln('A = ', a); writeln(fio); end.
Светлана-Тигран
11.01.2023
На некоторые сайты удаётся зайти, после добавления в доверенные, на другие вообще никак, потому что кнопки добавить не видно, есть только строка error. Но, даже если добавить в доверенные, и зайти на сайт, в большинстве случаев работать невозможно, потому что страница загружается только в текстовом режиме. такое происходит, в частности на Ютубе, если войти в свой аккаунт.
Не стоит отсылать к сообщениям за предыдущие года, так как все сообщения за года перечитал, часы у меня не сбились, показывают время правильно, кэш почистил, профили менял, даже более того, установил новую, свежую версию программы с нуля. НИЧЕГО НЕ Такая же проблема с недоверием есть и в других браузерах, если обновить их, но там, после оказания доверия, всё работает, а вот в ФФ нет.
карпова581
11.01.2023
Если три нуля значащие, значит число начинается с единицы. Поскольку любое число в развернутой записи есть сумма произведений, каждое из которых представляет собой произведение цифры, находящейся на n-й позиции на основание системы счисления, возведенной в степень n-1, то понятно, что чем больше по величине будут цифры в старших разрядах, тем больше будет само число. В применении к двоичной системе это означает, что слева должны стоять все единицы, а справа - нули. Получаем 11000(2)=1х2^4+1x2^3=16+8+=24(10) - тут символ ^ означает возведение в степень. ответ: 24
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Ввести фамилию, имя и отчество как одно данное строкового типа. определить длину строки и количество букв "а" в ней; вывести три буквы (свои инициалы) с точкам. в делфи.
a, i: integer;
s, fio: string;
begin
readln(s);
s := Trim(s);
writeln('Length = ', length(s));
for i := 1 to length(s) do
begin
if s[i] = 'а' then a := a + 1;
if (i = 1) or (s[i - 1] = ' ') then fio := fio + UpCase(s[i]) + '.';
end;
writeln('A = ', a);
writeln(fio);
end.