сервис вопросов и ответовсоставить программы 1.найти сумму всех 3х значных чисел кратных 17. 2.найти произведение всех чисел меньше 16.
5-9 класс|
|
Ahmetova99
08 июля 2013 г., 22:34:51 (10 лет назад)
Boizovapolina
08 июля 2013 г., 23:22:53 (10 лет назад)
1)
var b,i:integer;
begin
b:=0;
for i := 100 to 999 do
if (i mod 17) = 0 then b:=b+i;
writeln (b);
end.
2)
var b,c:integer;
begin
b:=1;
for c:= 1 to 15 do
b:=b*c;
writeln (b);
end.
Ответить
Другие вопросы из категории
решите задачу. в салоне летят 42 пассажира есть москвичи и иногородние. среди москвичей 9 мужчин. некоторые пассажиры артисты но из иногородних женщин
нету ни одной артистки.Всего иногородних мужчин 18. из них 13 не артисты среди пассажиров не являющихся артистами 16 мужчин и 11 женщин.6 москвичей не артисты КТО ЕСТЬ КТО?
Читайте также
1)Составить программу нахождения суммы квадратов чисел от 25 до 125.
2) составить программу нахождения чисел от 10 до 99 сумма квадратов которых кратна 13 (mod=0)
3) найти сумму всех целых нечетных чисел меньших 100
4) найти сумму чисел в диапазоне от A до B кратных четырём. Числа А и В вводятся с клавы.
5) Найти все натуральный делители натурального числа n
Помогите, пожалуйста, написать программу(паскаль). С пояснениями, желательно. Нужно с for. Найти сумму всех n-значных чисел,
кратных k.(1 <(или равно) n<(или равно)4).
Написать программу в турбо паскаль.
Найти сумму всех n-значных чисел (1 ≤ n ≤ 4)
Найти сумму всех двух значных чисел
Плис, напишите программу на turbo pascal
Напишите программу, которая в последовательности целых чисел находит сумму и количество чисел, кратных 17, или сообщает, что таких чисел нет. На вход
программы подаются целые числа, количество введенных чисел неизвестно, последовательность заканчивается числом 0 (0 - признак окончания ввода, не является членом последовательности). Количество чисел не превышает 100. Введенные числа по модулю не превышают 300. Программа должна вывести сумму и количество чисел, кратных 17, или вывести NO, если таких числе в последовательности нет
Вы находитесь на странице вопроса "составить программы 1.найти сумму всех 3х значных чисел кратных 17. 2.найти произведение всех чисел меньше 16.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.