Задание:
1) Определить колличество букв а в первом слове 2) удалить последнее слово из строки
Решение:
1program Prog1; var a: string; var i,k: integer; beginWriteln ('Vvedite slovo suda'); Read (a); for i: =1 to length (a) doif a[i]='a' then k: =k+1; writeln (k); end.2 не знаю
Знаете другой ответ?