Найдите произведение четных чисел, не привыкающих заданное натуральное число(N)
5-9 класс
|
var n,i,p:integer;
begin
p:=1;
readln(n);
for i:=1 to n do
if i mod 2 = 0 then k:=k*i;
writeln(k);
end.
Другие вопросы из категории
Установить курсор перед лишним символом 2. Нажать клавишу del
Информационный объём текста,подготовденного с помощью компьютера ,равен 3.5 Кбайт.Сколько символов содержит этот текст?
плотник,4-почтальон,5-парикмахер.Петров и Гришин никогда не держали в руке маляр. кисти.Иванов и Гришин все собираются посетить мельницу,на которой работает их товарищ.Петров и Иванов живут в одном доме с почтальоном.Иванов и Сидоров каждое воскресенье играют в городки с плотником и маляром.Петров брал билеты на футбол для сибя и для мельника.Определите проффессию каждого из друзей.
В упор не могу понять, как это решать.... но нужно сдать.. . Буду признателен, если кто решит.
Читайте также
натуральных чисел, не превышающих заданного натурального числа N.
Проверьте алгоритм трассировкой. Напишите программу на Паскале.
программу на паскале.
№1 Дан массив, состоящий из n натуральных чисел. Образовать новый массив, элементами которого будут элементы исходного, оканчивающиеся на цифру k.
№2 Дан масив целых числ. Найти в этом массиве минимальный элмент m и максимальный M. Получить в порядке возрастания все целые числа из интервала (m;M), которые не входят в данный массив.
№3 Сформировать массив простых чисел , не больших заданного натурального числа N.
№4 Сформировать массив простых множителей заданного числа.