Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
horvad
0 / 0 / 0
Регистрация: 19.06.2016
Сообщений: 2
1

Найти сумму этих цифр. Если в строке встречаются другие символы, необходимо вывести на экран сообщение

19.06.2016, 18:02. Просмотров 874. Ответов 2
Метки нет (Все метки)

С клавиатуры вводится строка, состоящая из цифр. Найти
сумму этих цифр. Если в строке встречаются другие символы,
необходимо вывести на экран сообщение: «Не является числом!»
как это сделать?
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.06.2016, 18:02
Ответы с готовыми решениями:

Дана символьная строка. Вывести на экран те символы которые встречаются в строке более 3х раз
Работа со строками. Дана символьная строка. Вывести на экран те символы...

Вывести строку из файла. Найти все целые числа, находящиеся в строке. Найти сумму этих чисел
Помогите, пожалуйста, с задачей на паскале. Необходимо вывести строку из...

Вывести на экран те символы, которые встречаются два раза
Лабораторная работа 6. Строки в Паскале Задание (Вариант 12): Дана...

С клавиатуры вводится N целых чисел a1, a2,….,aN. Найти сумму этих чисел. Вывести на экран в процессе ввода чисел: a1+a2, a2+a3, …. aN-1+aN
Помогите, пожалуйста! Решить задачу 3 способами: 1. Используя метки и...

Если среди символов встречаются цифры, то найти их сумму
с клавиатуры вводится 20 символов ,, если среди них свтречаются символы цифры, ...

2
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
4035 / 2656 / 2131
Регистрация: 22.11.2013
Сообщений: 7,451
19.06.2016, 20:27 2
Лучший ответ Сообщение было отмечено horvad как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
var s: String; i, n: Integer;
begin
  ReadLn(s); i:=Length(s);
  while (i>0) and (s[i] in ['0'..'9']) do begin
    Inc(n,Ord(s[i])-Ord('0')); Dec(i);
  end;
  if i>0 then WriteLn('Не является числом!')
  else WriteLn('Сумма цифр: ', n);
end.
Добавлено через 4 минуты
Или
Pascal
1
2
3
4
5
6
7
var s: String; c: Char; n: Integer;
begin
  ReadLn(s); 
  for c in s do if c in ['0'..'9'] then Inc(n,Ord(s[i])-Ord('0')) else Break;
  if c in ['0'..'9'] then WriteLn('Сумма цифр: ', n)
  else WriteLn('Не является числом!');
end.
1
horvad
0 / 0 / 0
Регистрация: 19.06.2016
Сообщений: 2
19.06.2016, 21:28  [ТС] 3
не запускается, пишет incompatible types: got "char" expected "long int"

Добавлено через 7 минут
не запускается, пишет incompatible types: got "char" expected "long int"
не, соврал, простите, программа запускается, но сумму не считает. ввожу от 1 до 9, пишет что не число

Добавлено через 19 минут
все, я догнал что к чему!)) большое спасибо!)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.06.2016, 21:28

Вывести на экран количество цифр числа N и сумму его цифр
Дано натуральное число N (N<10255). Вывести на экран количество цифр числа N и...

Выяснить, содержит ли она символы цифр «0» «9», и если да, то сформировать из них строку и вычислить сумму
4)Дана строка. Выяснить, содержит ли она символы цифр «0».. «9», и если да, то...

Вывести на экран все символы расположенные в скобках в строке
Ввести строку. Вывести на экран все символы расположенные в скобках в строке....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru