сервис вопросов и ответовсоставить программу нахождения произведения всех чисел от 5 до 20 кратным 5
10-11 класс|
|
Bek00
01 июня 2013 г., 8:33:41 (10 лет назад)
Anghel9
01 июня 2013 г., 9:44:08 (10 лет назад)
var i,pr:integer;
begin
pr:=1;
for i:=5 to 20 do
begin
if (i mod 5 = 0) then pr:=pr*i;
end;
writeln (pr);
end.
Ответить
Другие вопросы из категории
Маша и Оля собрались варить варенье из Акг вишни.По рецепту на 3 кг вишни нужно 7 кг сахара.Оля сказала,что нужно купить Дкг сахара,а Маша сказала сто Хкг
сахара.Кто из них прав.
Определить два наибольших числа в последовательности и найти их частное.
Не через массивы. Паскаль.
Cрочно! Язык visual basic,массивы - задачи:
1)Заменить значение любого элемента массива на а
2)Определить имеются ли четные числа в массиве
3)Заменить все элементы некоторой строки на заданное число
4)Вывести все элементы N столбца и M строки
Читайте также
1)Написать программу вывода всех четных чисел от 2 до 1000 включительно
2)Написать программу определяющую сумму всех нечетных чисел от 1 до 99
Составить программу Дан массив натуральных чисел , размерность -12 !) Заполнение массива производить с клавиатуры 2) Вывести на печать
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .
Вы находитесь на странице вопроса "составить программу нахождения произведения всех чисел от 5 до 20 кратным 5", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.