Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 10.05.2012
Сообщений: 3
1

Строки. Определить сумму чисел, оканчивающихся на цифры 3 или 4

10.05.2012, 20:04. Показов 1522. Ответов 2
Метки нет (Все метки)

помогите пожалуйста решить задачу:

Дана строка символов, состоящая из цифр от 0 до 9 и пробелов. Группы цифр, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами. Рассматривая эти слова как числа, определить и напечатать сумму чисел, оканчивающихся на цифры 3 или 4.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.05.2012, 20:04
Ответы с готовыми решениями:

Процедуры или функции. Определить сумму n-значных чисел, содержащих только нечетные цифры
Ребят, помогите решить задачи. Нужен ПОЛНЫЙ КОД и чтобы в нем использовалась либо процедура, либо...

Определить сумму n-значных чисел, содержащих только нечетные цифры. Определить, сколько четных цифр в найденной сумме
Написать программу, определяющую сумму n - значных чисел, содержащих только нечетные цифры....

Найти сумму чисел, оканчивающихся на 1
1)Определяет набор чисел, которые разделив 4 на периметра 2)Сумма чисел, оканчивающиеся в 1 на...

В последовательности натуральных чисел определить количество чисел, кратных 6, и оканчивающихся на 0
Напишите программу, которая в последовательности натуральных чисел определяет количество всех...

__________________
2
88 / 88 / 75
Регистрация: 21.08.2011
Сообщений: 151
10.05.2012, 20:18 2
Лучший ответ Сообщение было отмечено nikita1 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var i,r,n,s: longint;
   st: string;
begin
   readln(st);
   while (st[1]=' ') do delete(st,1,1);
   while (st[length(st)]=' ') do delete(st,length(st),1);
   repeat
      inc(i);
      if (st[i]=' ') and (st[i+1]=' ') then begin
         delete(st,i+1,1); i:=0;
      end;
   until i=length(st)-1;   
   st:=st+' ';
   repeat
      val(copy(st,1,pos(' ',st)-1),n,r);
      if (n mod 10=3) or (n mod 10=4) then s:=s+n;
      delete(st,1,pos(' ',st));
   until st='';
   writeln(s);
end.
0
0 / 0 / 0
Регистрация: 10.05.2012
Сообщений: 3
10.05.2012, 21:05  [ТС] 3
блин, огромное тебе спасибо. Выручил так выручил!!!!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.05.2012, 21:05

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Цикл Дана непостая последовательность целых чисел, оканчивающихся нулем. Найти сумму всех чисел последовательности, большее числа х
Цикл Дана непостая последовательность целых чисел, оканчивающихся нулем. Найти сумму всех чисел...

Функции: определить сумму трехзначных чисел, содержащих только нечетные цифры
Написать программу, определяющую сумму трехзначных чисел, содержащих только нечетные цифры....

Найти сумму, произведение и количество трехзначных чисел, оканчивающихся на 0
Найти сумму,произведение и кол-во трехзначных чисел оканчивающихся на 0. помогите, пожалуйста!

В последовательности натуральных чисел определить сумму всех чисел, оканчивающихся на 3 или 9
Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел,...


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

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

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