Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Polina09002
0 / 0 / 0
Регистрация: 16.10.2017
Сообщений: 14
#1

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

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

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

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

Нахождения пифагоровых чисел, не превышающих заданного значения - Pascal
Сможет кто помочь ? курсач на тему:Нахождения пифагоровых чисел, не превышающих заданного значения.

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

В последовательности чисел найти среднее значение из всех всех введенных чисел,кратных 7 - Turbo Pascal
В последовательности чисел найти среднее значение из всех всех введенных чисел,кратных 7. И в этой же программе найти наименьшее из всех...

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

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

2
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3593 / 2580 / 1760
Регистрация: 05.06.2014
Сообщений: 12,345
17.10.2017, 07:02 #2
Polina09002, я правильно перевел задание на русский язык?
0
JuriiMW
Эксперт Pascal/Delphi
1564 / 845 / 699
Регистрация: 10.12.2014
Сообщений: 3,004
17.10.2017, 07:20 #3
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
Привет! Вот еще темы с ответами:

Составить программу нахождения для заданного натурального числа всех делителей, кратных числу - Pascal
1. Дан одномерный массив, состоящий из вещественных элементов. Найти сумму элементов массива, расположенных до последнего положительного...

Составить программу нахождения всех наименьших чисел из определенного количества чисел - Turbo Pascal
Составить программу нахождения всех наименьших чисел из определенного количества чисел

Дано n различных натуральных чисел. Написать функцию нахождения всех перестановок этих чисел. - Pascal
Дано n различных натуральных чисел. Написать функцию нахождения всех перестановок этих чисел. Помогите пожалуйста очень надо никак не могу...

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


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

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

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