var
a: array [1..4] of char;
s: string;
i: byte := 1;
begin
readln(s);
while (i < length(s)) do
begin
if ((not(s[i] in ['ж', 'ч', 'ш', 'щ'])) or (pos(s[i], s) > i)) then
delete(s, i, 1)
else
i += 1;
end;
writeln(s);
end.

Суть в том, чтобы удалить все нешипящие буквы, а также повторы шипящих, после чего просто вывести строку

0 0

1 год назад

Что выведет данная программа?program p1;var Z:integer;function f (n:byte):longint;beginif n=0 then f:=1else f:=(2*n)*f(n-1); end

ЛинаЛинаР

Выдаст произведение следующих чисел

2*5*2*4*2*3*2*2*2*1=3840

0 0

4 года назад

Росмотри рисунок составь рассказ в виде текста

Сандритка

Мальчик, увидев на светофоре знак того, что можно перейти дорогу, смело пошел по зебре, расположенной на дороге, а водитель, увидев , что ехать нельзя, остановился и ждет, пока пешеходы перейдут дорогу.

0 0

4 года назад

Решите пожалуйста!!! :3 от этого зависит моя оценка за четверть она спорная между 3 и 4!!! Решите пожалуйста))0)) ///Найдите мощ

нина-игнатенко

1. В сообщении 110 символов, всего 440 бит. Найдем количество бит на символ 440/110 = 4 бит
2. Мощность алфавита = 2 в степени количества бит= 2⁴ = 16
Ответ: 16

0 0

4 года назад