Регистрация
zzzPhenomenalOnezzz
04.03.2023 15:22
Информатика
Есть ответ 👍

Сор по информатике 6 класс 4- ! 35 ​

247
392
Посмотреть ответы 1

Ответы на вопрос:

ruslanbaxsiev79
ruslanbaxsiev79
4,5(36 оценок)
Не работает с многоточием, если что. var f: text;   c: char; k: integer; begin k: =0; assign(f,'input'); reset(f); while eof(f)=false do if eoln(f) then readln(f) else begin read(f,c); if (c='.') or (c='! ') or (c='? ') then k: =k+1; end; if not((c='.') or (c='! ') or (c='? ')) then k: =k+1; close(f); write(k) end.

Популярно: Информатика