Вопрос по информатике:
Составьте программу , определяющую , является ли введенное слово числом. Pascal.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок — бесплатно!
- bookmark_border
- 27.05.2018 01:33
- Информатика
- remove_red_eye 14044
- thumb_up 38
Ответы и объяснения 2
susthre743
Var s: string; I,n,k,L:longint; Begin Readln(s); L:=length(s); If s[1]’-‘ then begin For i:=1 to L do If s[i] in [‘1’. ‘9’] or (s[i]=’.’ and s[i+1]’.’) then inc(k); If kL then writeln(‘слово’) else writeln(‘число’); End else begin For i:=2 to L do If (s[i] in [‘1’. ‘9’]) or (s[i]=’.’ and s[i+1]’.’)then inc(k); If k(L-1) then writeln(‘слово’) else writeln(‘число’); End; End.
- 28.05.2018 15:46
- thumb_up 2
kermusthate
PascalABC.NET 3.3.5, сборка 1648 от 31.03.2018
Внимание! Если программа не работает, обновите версию!
Числа в JAVASCRIPT. Тип данных number. Работа с числами. проблема неточных вычислений.
begin
var r:real;
real.TryParse(ReadlnString,r).Println
end.
- 29.05.2018 00:08
- thumb_up 8
Знаете ответ? Поделитесь им!
Как написать хороший ответ?
Чтобы добавить хороший ответ необходимо:
- Отвечать достоверно на те вопросы, на которые знаете правильный ответ;
- Писать подробно, чтобы ответ был исчерпывающий и не побуждал на дополнительные вопросы к нему;
- Писать без грамматических, орфографических и пунктуационных ошибок.
Этого делать не стоит:
- Копировать ответы со сторонних ресурсов. Хорошо ценятся уникальные и личные объяснения;
- Отвечать не по сути: «Подумай сам(а)», «Легкотня», «Не знаю» и так далее;
- Использовать мат — это неуважительно по отношению к пользователям;
- Писать в ВЕРХНЕМ РЕГИСТРЕ.
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи — смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Источник: online-otvet.ru
Составьте программу , определяющую , является ли введенное слово числом. Pascal.
begin
var r:real;
real.TryParse(ReadlnString,r).Println
end.
Примеры
-345.432
True
Новые вопросы
Алгебра, 10 месяцев назад
Русский язык, 10 месяцев назад
Математика, 6 лет назад
Алгебра, 6 лет назад
Математика, 7 лет назад
Литература, 7 лет назад
Лучшие помощники
- 2023 — Znanijam.net | Бесплатные знания для всех
- Контакты
- Пользовательское соглашение
- Политика обработки данных
Входя или регистрируясь на сайте, вы принимаете условия Политики обработки данных и Пользовательского соглашения.
Python l Извлечение цифр из строки ( поиск чисел в строке)
Источник: znanijam.net
Составьте программу , определяющую , является ли введенное слово числом. Pascal.
begin
var r:real;
real.TryParse(ReadlnString,r).Println
end.
Примеры
-345.432
True
Отвечает Арефьев Александр.
Var s: string; I,n,k,L:longint; Begin Readln(s); L:=length(s); If s[1]<>’-‘ then begin For i:=1 to L do If s[i] in [‘1’. ‘9’] or (s[i]=’.’ and s[i+1]<>’.’) then inc(k); If k<>L then writeln(‘слово’) else writeln(‘число’); End else begin For i:=2 to L do If (s[i] in [‘1’. ‘9’]) or (s[i]=’.’ and s[i+1]<>’.’)then inc(k); If k<>(L-1) then writeln(‘слово’) else writeln(‘число’); End; End.
Источник: uznavalka.pro