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 года назад

Какой шаблон будет соответствовать поиску файлов, имена которых состоят из 5 символов, начинающихся с символа Z, с любым расшире

Бибиджон

Z????.*

? - это строго один любой символ
* - это любое количество символов, даже может символ отсутствовать

0 0

1 год назад

Задачами управления являются: Право собственности. Организация системы — полное, качественное выделение подсистем, описание их в

Danil1998

Ответ:

2 и 3 вариант верные

Объяснение:

Поставь лучший ответ пожалуйста $\pi \pi$

0 0

4 года назад

Сделайте презентацию на power point живую, на тему гравити фолз ​

Сделайте презентацию на power point живую, на тему гравити фолз