Program z1;
var a: string; b, c, i: integer;
begin
readln (a); writeln ();
c:= 0;
b:= lenght (a);
for<span> i</span>:=1 to<span> b </span>do
if (a[i]<span> ></span>= 'a') and (a[i]<span> <</span>= 'z') then begin
<span>write (a[i]); c </span>:=<span> c </span>+ <span>1; end;
</span>writeln (c);
end.
Надеюсь, этот вариант сработает.
Ответ:
Компас - создание чертежей
Adobe Photoshop - работа и изображениями
Fine Reader - распознавание сканированного текста
МультиЛекс - словарь-переводчик
Lingvo - тоже словарь-переводчик
Полиглоссум - тоже словарь-переводчик
StarOffice Writer - текстовый процессор
Ок
(Класс объекта) Класс — не информативно можно описать что это разновидность абстрактного типа данных в объектно-ориентированном программировании, характеризуемый способом своего построения. ... пойдёт?
Только 1 задание сделаю
1 5 7 9 12