Составить программу, которая присваивает некоторой переменной значение "истина"

@Katuuut0 · Регистрация: 13.10.2020

Author24 — интернет-сервис помощи студентам

Составить программу, которая присваивает некоторой переменной значение "истина", если во введенном тексте содержатся символы отличные от букв русского алфавита и пробела и значение "ложь" в противном случае. Подсчитать количество таких символов. Использовать данные типа множество.

Программу просчитать для различных исходных данных. На печать выдать исходный текст, количество символов и значение логической переменной.

@Puporev · 21.11.2020, 17:51

Pascal

1
2
3

i:=1;
while(i<=length(s))and (s[i] in ['А','я',' ']) do inc(i);
f:=i<=length(s)

@bormant · 21.11.2020, 21:42

Pascal

2	... and (s[i] in ['А'..'Я','а'..'п','р'..'я',' ']) do ...

Добавлено через 5 минут
Но можно лишь чуточку короче

Pascal

2	... and (s[i] in ['А'..'п','р'..'я',' ']) do ...

В кодовой странице 866 интервал п-р не является непрерывным, в нем ещё 48 символов.

@Puporev · 22.11.2020, 07:44

Да, что-то не заметил что это Турбо Паскаль а не АВС.

@Katuuut0 0 / 0 / 0 Регистрация: 13.10.2020 Сообщений: 65
		1
	Составить программу, которая присваивает некоторой переменной значение "истина" 21.11.2020, 14:48. Показов 727. Ответов 3 Метки алфавит, истина, ложь, символы, турбо паскаль (Все метки) Составить программу, которая присваивает некоторой переменной значение "истина", если во введенном тексте содержатся символы отличные от букв русского алфавита и пробела и значение "ложь" в противном случае. Подсчитать количество таких символов. Использовать данные типа множество. Программу просчитать для различных исходных данных. На печать выдать исходный текст, количество символов и значение логической переменной. 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	22.11.2020, 07:44	4
	Да, что-то не заметил что это Турбо Паскаль а не АВС. 0

Опции темы