Составить программу нахождения суммы нечётных чисел, находящихся в промежутке от 13 до 45. Желательно блок схема))
10-11 класс
|
Program enot;
Var a: array[1..33] of integer;
i,k,s:integer;
begin
s:=0;
k:=12;
for i:= 1 to 33 do
begin
a[i]:= k+1;
k:=k+1;
end;
for i:= 1 to 33 do
if a[i] mod 2 <>0 then s:=s+1;
write(s);
end.
Другие вопросы из категории
Из элементов массива P сформировать массив А той же размерности по правилу: если элемент четный, то Р[i]=i*М[i];если нечетный, то Р[i]= - М[i].
Дано двузначное число вывести на экран число у которого цифры расположились в обратном порядке (если число 12, то вывести 21)
-Удвоенную сумму положительных элементов;
-Удалить все четные элементы массива.
Читайте также
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .
2)Составьте программу которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150
3)Дано вещественное число А и целое число N(>0).Испульзуя один цикл вывести все целые степени числа А от 1 до N
------------------------ОПЕРАТОР WHILE
1+3+5+... ... + 99
Pascal ABC