М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
lana030935
lana030935
09.02.2020 01:03 •  Информатика

Укажи логические операции не
если
истина
и
ложь
или

👇
Ответ:
Matvei337
Matvei337
09.02.2020

Объяснение:

неиили
4,5(31 оценок)
Открыть все ответы
Ответ:
школьник619
школьник619
09.02.2020
// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  Writeln('Сумма четных: ',Range(2,n,2).Sum);
  Writeln('Произведение нечетных: ',
      Range(1,n,2).Aggregate(BigInteger(1),(p,q)->p*q))
end.

Примеры
n= 10
Сумма четных: 30
Произведение нечетных: 945

n= 100
Сумма четных: 2550
Произведение нечетных: 2725392139750729502980713245400918633290796330545803413734328823443106201171875

n= 220
Сумма четных: 12210
Произведение нечетных: 1107777077219218863731176870556049213277080310011307546922058816496685355705579762805879646585202270946781726057710274499420058851200005273702334889222745707797723907366146060509882690145022444427013397216796875
4,6(49 оценок)
Ответ:
Luxky
Luxky
09.02.2020
Вот программа с елкой: 
Uses GraphABC; 
Begin 
SetWindowSize(600,400); 
line(250,100, 300,50); 
lineto(350,100); 
lineto(250,100); 
floodfill(300,70, clgreen); 
line(220,200, 300,100); 
lineto(380,200); 
lineto(220,200); 
floodfill(300,150, clgreen); 
line(200,300, 300,200); 
lineto(400,300); 
lineto(200,300); 
floodfill(300,250, clgreen); 
rectangle(290, 300,310, 320); 
floodfill(300,305, clbrown); 
line(0, 300, 100, 350); 
lineto(200, 320); 
lineto(400, 320); 
lineto(600, 370); 
lineto(600,400); 
lineto(0,400); 
lineto(0,300); 
end. 
4,5(50 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ