Помогите решить на языке ПАСКАЛЬ. Дана строка символов

Question

Помогите решить на языке ПАСКАЛЬ. Дана строка символов. Определить количествослов.

Answer 1

68

alexgreb

21 февраля 2023

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. Сдесь строки берутся и записываются в файлы

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: