Program z1;
var a: string; b, c, i: integer;
begin
readln (a); writeln ();
c:= 0;
b:= lenght (a);
for i:=1 to b do
if (a[i] >= 'a') and (a[i] <= 'z') then begin
write (a[i]); c := c + 1; end;
writeln (c);
end.

Надеюсь, этот вариант сработает.

0 0

4 года назад

Графическая форма представления информации

WhiteNorb [2.2K]

Это фоторафии, рисунки, изображения

0 0

4 года назад

Помогите аууууууууууу

kpp [48]

3) таблица 1 строка 2^5 потом 5 и в конце 550

вторая строка таблицы 2^9 потом 9 и в конце 630

4) вес 1 буквы в 128символьном алфавите будет равна 7 битам (тк 2^7=128) потом перемножаем на 20 на 50 и на 4 что бы узнать вес всего текста 7*4*20*50 = 28000 бит . что бы перевести биты в байты нужно поделить на 8 28000 бит : 8 = 3500 байт

1 и 2 устный так что ничем помочь не могу(

0 0

4 года назад