Задание:
Помогите решить на языке ПАСКАЛЬ. Дана строка символов. Определить количествослов.
Решение:
var q: text; f: string; a,b: integer; begin Assign (q,'C: //textin.txt'); Reset (q); read (q,f); close (q); for a: =1 to Length (f) do begin if f[a]=' then b: =b+1; end; a: =0; b: =b+1; assign (q,'C: //textout.txt'); rewrite (q); write (q,b); close (q); end. Сдесь строки берутся и записываются в файлы
Знаете другой ответ?