Найдите произведение целых нечётных чисел, меньше 65
5-9 класс
|
var i,a: integer;
begin
a:=1;
for i = 1 to 64
if (i mod 2)<>0 then
a:=a*i;
end;
writeln (a);
end.
Другие вопросы из категории
переключается на "Change"). Калькулятор выдаёт каждый раз ошибку и не работает. Помогите, кто знает - P L E A S E. Использую ''Microsoft Word"
деньги они приобретают другии продукты
составте программу запрашивающию значение переменных и
подшитывающию какое кол-во денег остается на приобретенные остальных товаров от суммы в К рублей
Даны три натуральных числа. Напишите программу(на языке Паскаля), определяющую, существует ли треугольник с такими длинами сторон. Если такой треугольник существует, то определите его тип(равносторонний, равнобедренный, равносторонний).
(Спам и неправильные решения будут отправлены модетатору).
Читайте также
2) составить программу нахождения чисел от 10 до 99 сумма квадратов которых кратна 13 (mod=0)
3) найти сумму всех целых нечетных чисел меньших 100
4) найти сумму чисел в диапазоне от A до B кратных четырём. Числа А и В вводятся с клавы.
5) Найти все натуральный делители натурального числа n
а) среднее арифметическое нечётных чисел