Помогите написать программу по Информатике! Найти произведение двузначных нечетных чисел, кратных
10-11 класс
|
13.
Нужно написать программу на цикле с предусловием, на Паскале.
var
i, ans: longint;
begin
i := 10;
ans := 1;
while i < 100 do
begin
if (i mod 13 = 0) and (i mod 2 <> 0) then ans := ans * i;
inc(i);
end;
writeln(ans);
end.
Другие вопросы из категории
Использовать процедуру для получения результатов "Выходные переменные"
Пожалуйста, помогите с информатикой:(
Даны целые положительные числа m,n и k. сформировать целочисленную матрицу размером m*n, у которой все элементы имеют значения k+i+j (i=1,2..m; j=1,2..n)
Читайте также
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу
Задание:
Дан массив целых чисел. Найти сумму положительных нечетных. Обязательно по процедурам с массивами
среднее второго и предпоследнего элементов массива
дан целочисленный
массив из 10 элементов написать программу находящую сумму элементов
массива красных 3 ил 5
дан целочисленный массив из 30 ти элементов
написать программу которая позволяет найти среднее арифметическое
положительных элементов массива
Дано натуральное число n. Написать программу вычисляющую сумму