найти сумму положительных нечетных чисел,меньших n. по паскалю
5-9 класс
|
uses crt;
var i,s:integer;
begin
s:=0;
for i:=1 to 100 do
begin
if ((i mod 2)=1) then s:=s+i;
end;
writeln('summa nechetnych chisel menshe sta ravna ',s);
readkey;end.
а вдруг скажут сделать отрицатильные))
var i,s,n:integer;
begin
s:=0;
read(n);
for i:=-n to n do
begin
if (((i mod 2)=1)and (i > 0)) then s:=s+i;
end;
writeln('summa nechetnych chisel menshe sta ravna ',s);
readln;
end.
Другие вопросы из категории
соответствующие сообщение. Ниже представлен рекомендуемый вид экрана во время работы программы.Введите в одной строке два целых числа и нажмите <Enter>. ->34 67
труженицам пчелкам.Пчелки очень обрадовались,увидев мишку с букетом цветов, и сказали:У нас есть большая бочка с мёдом .Мы дадим тебе мёда,если ты сможешь с помощью двух сосудов вместимостью 3 л. и 5 л.. налить себе 4 л.Винни-Пух долго думал, но все-таки смог решить задачу.Как он это СДЕЛАЛ???
Читайте также
2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.
паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль
Размер 30
Имя D
Должна выполнять функции:
1)Найти минимальный элемент
2)Найти сумму положительных чисел
3)Минимальное четное число
4)Количество отрицательных четных чисел
5)Сумму положительных нечетных чисел
ПОМОГИТЕ ПОЖАЛУЙСТА! У МЕНЯ КОНТРОЛЬНАЯ!! ЗАРАНЕЕ БЛАГОДАРЮ!!)