Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Описать логическую функцию функции ход ферзя https://www.cyberforum.ru/ pascal/ thread196627.html Даны описания для переменных type поля = record вертикальные(a,b,c,d,e,f,g,h). (горизонтальные : 1..8) end; Описать логическую функцию функции ход ферзя (n1,n2) проверяющую может ли ферзь за один ход перейти с поля n1 шахматной доски на поле n2	Строки Pascal В предложении слова разделены одним пробелом. Подсчитать количество слов в предложении. Люди, помогите!!!
Pascal Рекурсивная функция Написать рекурсивную функцию умножения вещественных чисел. https://www.cyberforum.ru/ pascal/ thread196620.html	Pascal Работа с массивами водится массив 4 на 4 поменять четные и не четные строчки местами,вывести на экран получившийся масив https://www.cyberforum.ru/ pascal/ thread196618.html
Pascal Массивы. Прошу помоч отсортировать двумерный массив массив по возрастанию рамкой по часовой стрелки. Вот так исходный массив (пример) 11 14 43 89 23 32 20 70 56 64 55 58 41 61 28 12 а результат 11 12 14 23 80 32 20 28 70 64 55 41 61 58 56 43	Pascal Записать в фаил Т1 текст, переписать в файл Т2, за исключением строк с цыфрами. https://www.cyberforum.ru/ pascal/ thread196613.html Записать в текстовый файл Т1 некоторый текст. Переписать в файл Т2 содержимое файла Т1, за исключением строк, которые содержат цифры. Добавлено через 21 час 40 минут Помогите пожалуйста.
Pascal Помигите с двумерными массивами плз ! Помогите решить, я просто не могу понять как это решить(((( в двумерном массиве хранится информация о количестве студентов в той или иной группе каждого курса во втором второго и т.д. на каждом курсе имеется 10 групп. определить общее число студентов на пятом курсе ! https://www.cyberforum.ru/ pascal/ thread196612.html	Pascal 3 программы на паскаль 1) написать прогу которая в веденной с клавиатуры строки преобразует строчные буквы русского алфавита в прописные (учтите что функция upcase с символами русского алфавита не работает.) (данные введенные пользователем, выделяет полужирным шрифтом) 2)Создать текстовый файл и записать в него 5 одинаковых строк. Записываемая строка вводится с клавиатуры. 3)Написать функцию, которая вычисляет...
Pascal Пусть дано натуральное число N Пусть дано натуральное число N и последовательность из N вещественных чисел, среди которых есть хотя бы одно отрицательное. Найти наибольшее среди отрицательных чисел этой последовательности. https://www.cyberforum.ru/ pascal/ thread196604.html	Pascal В киоске продается газета стоимостью 3 коп. и журнал стоимостью 20 коп. https://www.cyberforum.ru/ pascal/ thread196603.html В киоске продается газета стоимостью 3 коп. и журнал стоимостью 20 коп. Составить программу, которая спрашивает о желании покупателя (журнал или газета?), принимает деньги (сумма денег вводится с клавиатуры) и печатает причитающуюся сдачу. Исходные данные задать самостоятельно. Количество покупателей равно N. Указания к решению задачи : Покупателю нужно задать по меньшей мере...
Pascal Написать программу, которая вычисляет факториал Написать программу, которая вычисляет факториал числа, введенного с клавиатуры. (Факториалом числа n называется произведение целых чисел 74 от 1 до n, например: факториал числа 1 равен 1, а факториал числа 8 – 40 320.) Рекомендуемый вид экрана приведен ниже: Данные, введенные пользователем, выделены полужирным шрифтом. Вычисление факториала Введите число, факториал которого надо...	Pascal построить график функции из файла с ее точками https://www.cyberforum.ru/ pascal/ thread196597.html как в паскале построить график функции из файла с ее точками (*.dat) ?

ChameleoN

ТруЪ Одмин Всiя Руси

71 / 71 / 14

Регистрация: 20.11.2010

Сообщений: 284

24.11.2010, 15:00

Вывести на экран все целые числа от а до b ,кратные некоторому числу с - Pascal - Ответ 1137906

24.11.2010, 15:00. Показов 6824. Ответов 1

Метки (Все метки)

Сообщение было отмечено как решение

Решение

Pascal

const x =1;
y = 100;
var a : array[x..y] of integer;
k : integer;
i : integer;
begin
k := 5;
for i := x to y do
for i := x to y do
begin
a[i] := i;
if a[i] mod k = 0 then
writeln(a[i]);
end;
readln
end.

Вернуться к обсуждению:
Вывести на экран все целые числа от а до b ,кратные некоторому числу с Pascal

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

24.11.2010, 15:00

Готовые ответы и решения:

Вывести на экран все целые числа от a до b, кратные некоторому числу c
вывести на экран все целые числа от a до b кратные некоторому числу c

Вывести на экран все целые числа от a до b , кратные некоторому числу c
Вывести на экран все целые числа от a до b , кратные некоторому числу c.

Вывести на экран все целые числа от a до b, кратные некоторому числу c
Вывести на экран все целые числа от a до b, кратные некоторому числу c. Распишите пожалуйста...

Вывести на экран все целые числа от А до Б ,кратные С
Вывести на экран все целые числа от А до Б ,кратные С.Или подскажите как записать "кратные С"в...

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

24.11.2010, 15:00

Помогаю со студенческими работами здесь

Repeat. Вывести на экран все целые числа от A до B кратные пяти
задать интервал целых чисел от а до б вывести на экран все целые числа от а до б кратные пяти числа...

Вывести на экран все целые числа из диапазона от А до В, кратные трём
задали 10 задач помогите решить 1) вычислить int(1.3) 2)Найти и объяснить ошибки в следующей...

Вывести на экран все целые числа из диапазона, кратные трем
Вывести на экран (задачу решите тремя способами - используя операторы цикла while, do while и for):...

Вывести на экран все целые числа от 100 до 200, кратные трем
Вывести на экран все целые числа от 100 до 200, кратные трем.

Наверх