Составьте программу, которая находит сумму четных чисел и произведение нечетных чисел в диапазоне от 10 до 26. ребят срочно нужно))
5-9 класс
|
var i, sum:integer;
proz:longint;
begin
for i:=10 to 26 do
begin
if i mod 2 = 0 then sum:=sum+i else if i mod 2 <>0 then proz:=proz*i;
end;
writeln('summa=',sum);
writeln('proizvedenie=',proz);
end.
Другие вопросы из категории
1 малый объем графических файлов
2 фотографическое качество изображения
3 возможность просмотра изображения на экране графического дисплея
4 высокое качество печати изображения на принтере
5 возможность поточечного редактирования изображения
Читайте также
2)Составьте программу,которая заполняет массив e[1..8] случайными целыми числами в диапазоне от 1 до 20 и находит сумму элементов с нечётными значениями и количество элементов кратных 3.
3)Составьте программу,которая заполняет массив e[1..14] случайными целыми числами в диапазоне от -10 до 10,затем изменяет знак положительных элементов на противоположный,а отрицательные элементы заменяет на 0.Спасибо.
2-ая Составить программу , которая в двумерном массиве случайных чисел элементы всех четных строк делает нулевыми
язык паскаль
Составить программу,которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.