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

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

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

7)найти сумму всех четырехзначных чисел в записи которых встречается хотя бы одна цифра 5
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.06.2012, 21:08
Ответы с готовыми решениями:

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

Как найти сумму тех двузначных чисел, в запись которых входит хотя бы одна цифра 7
Всем добрый вечер. Помогите решить задачу: Дана последовательность из N целых двузначных чисел...

Найдите количество простых чисел, не превосходящих N, в десятичной записи, которых есть хотя бы одна чётная цифра
Задано натуральное число N. Найдите количество простых чисел, не превосходящих N, в десятичной...

Найти все четырехзначные числа, в записи которых есть хотя бы одна цифра 4. Определите их количество
1. Задача . Найти все четырехзначные числа, в записи которых есть хотя бы одна цифра 4. Определите...

1
Лучи добра
173 / 171 / 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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.06.2012, 02:35

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

Найти количество простых чисел не больше N, в записи которых есть хоть одна четная цифра
Здравствуйте! Есть число N.Нужно найти количество простых чисел не больше N в записи которых есть...

Введена последовательность целых чисел. Найти минимальное значение/сумму/В числе имеется хотя бы одна цифра шесть
Данную задачу решить через While do. Толком ничего не понял, но обьяснил что можно это провернуть...

Сколько четырёхзначных чисел в записи которых ровно 2 четвёрки и одна пятёрка?
Сколько четырёхзначных чисел в записи которых ровно 2 четвёрки и одна пятёрка подскажите .


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru