Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
Inqu1sItor
0 / 0 / 0
Регистрация: 08.06.2012
Сообщений: 8
1

Найти сумму всех четырехзначных чисел в записи которых встречается хотя бы одна цифра 5

08.06.2012, 21:08. Просмотров 1352. Ответов 1
Метки нет (Все метки)

7)найти сумму всех четырехзначных чисел в записи которых встречается хотя бы одна цифра 5
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.06.2012, 21:08
Ответы с готовыми решениями:

Найдите сумму, количество и среднее арифметическое всех целых чисел из интервала [200,400] в записи которых есть цифра 5
Найдите сумму, количество и среднее арифметическое всех целых чисел из...

Найти и вывести все слова текста, в которых есть хотя бы одна цифра
Дана последовательность символов. Найти и вывести все слова текста, в которых...

Сколько существует трехзначных чисел, в записи которых встречается один раз цифра 2
Поиогите решить эти задачи на языке паскаль: 2. Сколь существует трехзначных...

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

Дана строка. Вывести на экран те слова строки, где встречается хотя бы одна цифра
оформить в виде процедуры и функции

1
Das Gespenst
Лучи добра
172 / 170 / 191
Регистрация: 08.06.2012
Сообщений: 292
09.06.2012, 02:35 2
Лучший ответ Сообщение было отмечено Inqu1sItor как решение

Решение

Седьмая!
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
program z;
var i,a,a1,j,s,k,f:integer;
t:array [1..8999] of integer;
begin
     s:=0;
     k:=0;
     j:=1;
     for i:=1000 to 9999 do
         begin
         a:=i;
         f:=0;
         while a<>0 do
               begin
                    a1:=a mod 10;
                    if a1=5
                       then
                           begin
                                t[j]:=i;
                                f:=1
                           end;
                    a1:=a div 10;
                    a:=a1;
               end;
         if f=1
            then
                j:=j+1;
         k:=j-1;
         end;
     {writeln('Четырехзначные числа с цифрой 5 в записи');
     for j:=1 to k do
         write(t[j],' ');}
     for j:=1 to k do
         s:=s+t[j];
     //writeln;
     writeln('Сумма этих чисел - ',s);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.06.2012, 02:35

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

На вход программе подается набор символов (в одной строке), среди которых есть хотя бы одна цифра.
На вход программе подается набор символов (в одной строке), среди которых есть...

Массив и работа с файлами. Найти количество чисел, в записи которых есть цифра 5
Здраствуйте. Не могу разобраться с проблемой. Задача следующая: Задан...


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

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

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