|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.04.2020, 12:38 | #1 |
Новичок
Джуниор
Регистрация: 15.04.2020
Сообщений: 2
|
Помощь в программе паскаль
Вводится текст. Конец ввода . Найти количество букв слов, слова разделяются пробелом.
program z2; uses crt; var a,n:integer; ch:char; begin n:=0; ch:=readkey; write(ch); while(ch=#0)=false do begin if (ch=' ')=true then n:=n+1; ch:=readkey; write(ch); while(ch=#0)=true do begin ch:=readkey; if (ch=#59)=true then ;ch:=readkey; write(ch); while(ch=#0)=true do begin ch:=readkey; end; writeln(n); end; end; end. Не получается, помогите пожалуйста исправить |
15.04.2020, 12:50 | #2 |
Новичок
Джуниор
Регистрация: 15.04.2020
Сообщений: 2
|
конец ввода F1
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Нужна помощь в программе, тип - запись. Создать файл содержащий сведения о веществах. (Паскаль) | lizka270398 | Помощь студентам | 6 | 09.01.2016 11:24 |
нужна помощь по программе | balin | Помощь студентам | 5 | 02.10.2014 15:27 |
Нужна помощь по программе | russya541 | Работа с сетью в Delphi | 3 | 29.06.2014 17:11 |
Помощь в программе на делфи | Антон1111 | Помощь студентам | 0 | 11.12.2013 14:56 |
помощь в программе | rmlib0 | Общие вопросы Delphi | 6 | 06.07.2008 10:39 |