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

Нахождение всех чисел кратных введенному и не превышающих N

16.10.2017, 22:05. Просмотров 829. Ответов 2
Метки нет (Все метки)

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

Определить количество первых двухзначных чисел, кратных 7, не превышающих в сумме 100
1) определить количество первых двухзначных чисел, кратных 7, не превышающих в...

В последовательности чисел найти среднее значение из всех всех введенных чисел,кратных 7
В последовательности чисел найти среднее значение из всех всех введенных...

Найти сумму всех чисел, кратных 2, но не кратных 10
Найти сумму всех чисел, кратных 2, но не кратных 10.

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

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

2
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4004 / 2939 / 3685
Регистрация: 05.06.2014
Сообщений: 14,519
17.10.2017, 07:02 2
Polina09002, я правильно перевел задание на русский язык?
0
JuriiMW
1992 / 1077 / 1573
Регистрация: 10.12.2014
Сообщений: 4,042
17.10.2017, 07:20 3
Лучший ответ Сообщение было отмечено Polina09002 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
var v, n, i : Integer;
begin
  Write('v = '); Read(v);
  Write('n = '); Read(n);
  Write('Кратные ', v, ' и не превышающие ', n, ' : ');
  i := 0;
  repeat
    Write(#32, i); inc(i, v);
  until i > n;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.10.2017, 07:20

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

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

Вычисление произведения всех чисел от 1 до 100, кратных 3
Составить программу вычисления произведения всех чисел от 1 до 100 кратных 3. ...


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

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

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