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

Циклические алгоритмы

04.05.2011, 16:20. Просмотров 905. Ответов 1
Метки нет (Все метки)

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

Циклические алгоритмы
Написать программу, которая вычисляет, сколько лет сможет полноценно обеспечивать электроэнергией...

Циклические алгоритмы
Помогите срочно вычислить значение выражения х=а*а-sqrt(b+4)+b/a для любого известного количества ...

Циклические алгоритмы
http://i003.***********/0912/22/dc78216dcfcc.jpg

Циклические алгоритмы
1.Определить, каким по счету идет в массиве К(12) первый элемент, равный 0. 2.Дана матрица...

циклические алгоритмы
помогите ,пожайлуста, с задачами!ни как не могу сделать :( 1.Сумма цифр двузначного числа равна...

1
Small Lamer
142 / 142 / 141
Регистрация: 05.04.2011
Сообщений: 270
04.05.2011, 19:24 2
Лучший ответ Сообщение было отмечено -Vaka- как решение

Решение

Pascal
1
2
3
4
5
6
7
var i:longint;
begin
  for i:=100 to 999 do
      if ((i div 10 mod 10)+(i mod 10)+(i div 100) mod 7=0)and( i mod 7=0) then write(i,' ');
readln;
readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.05.2011, 19:24

Разветвляющиеся и циклические алгоритмы
Вычислить значения функций y, z, f для значений x, изменяющихся на отрезке с шагом 0,2 y\, =\,...

Разветвляющиеся и циклические алгоритмы.
Помогите написать: Разветвляющиеся Даны целочисленные координаты точки на плоскости. Если точка...

Найти значение выражений Циклические/Алгоритмы и программы с разветвлением
Первое выражение: Y = 1/(x2 -3); A = -4, B = 4, H = 0.5 Второе:


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

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

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