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

Вычислить сумму тех чисел из заданного отрезка [a, b] (a, b – натуральные), в запись которых входит цифра k.

24.05.2011, 08:25. Показов 996. Ответов 1
Метки нет (Все метки)

Вычислить сумму тех чисел из заданного отрезка [a, b] (a, b – натуральные), в запись которых входит цифра k.

Добавлено через 9 часов 44 минуты
срочно(((плизз....
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.05.2011, 08:25
Ответы с готовыми решениями:

Вычислить сумму тех чисел из заданного отрезка [a, b] (a, b – натуральные), в запись которых входит цифра k
Вычислить сумму тех чисел из заданного отрезка (a, b – натуральные), в запись которых входит цифра...

Вычислить сумму тех чисел из заданного отрезка, в запись которых входит цифра k
Решить задачу с использованием процедур. Указать выделенные подзадачи, решаемые процедурами....

Вычислить сумму тех чисел из заданного отрезка [a, b], в запись которых входит цифра k
Вычислить сумму тех чисел из заданного отрезка (a, b – натуральные числа), в запись которых входит...

Вычислить сумму тех чисел отрезка (a, b), в запись которых входит цифра k
Тип программа должна подсчитать сколько значений между а,б именют k. Тип сколько чисел от 20 до...

1
608 / 133 / 132
Регистрация: 15.04.2010
Сообщений: 554
24.05.2011, 09:57 2
Лучший ответ Сообщение было отмечено alenka11 как решение

Решение

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
program p1(input,output);
var a,b,k:integer;
function summ(a,b,k:integer):integer;
var i:integer; s:integer;
function in_k(c,k:integer):boolean;
label 99;
var p:integer;
begin
     while c<>0 do begin
     p:=c;
     c:=c mod 10;
     if c=k then begin in_k:=true; goto 99 end
       else c:=p div 10;
     end;
     in_k:=false;
99: end;
begin
    s:=0;
    for i:=a to b do
        if in_k(i,k) then s:=s+i;
    summ:=s;
end;
 
begin write('interval>');
     readln(a,b);
     write('k>');
     readln(k);
     write(summ(a,b,k));
     readln;
     readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.05.2011, 09:57

Помощь в написании контрольных, курсовых и дипломных работ здесь.

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

Вычислить сумму тех вводимых чисел, у которых первая цифра равна последней
День добрый) В программе использовать циклы while или конструкцию “цикл в цикле”. На экран...

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

Найти сумму тех чисел,у которых последняя цифра больше всех остальных
1)Вводится n натуральных чисел.Найти сумму тех чисел,у которых последняя цифра больше всех...


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

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

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