tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Знайти суму чисел менших 50
Знайти суму чисел менших 50 і парних (> 0)
игоревич159753
3 21.09.2019 19:10
0
Ответы
37к6
08.10.2020 07:48
PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!
begin
Writeln('Сумма ',2.Step(2).TakeWhile(t->t<50).Sum)
end.
Результат
Сумма 600
ПОКАЗАТЬ ОТВЕТЫ
Denis4345
08.10.2020 07:48
//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
begin
Println('Сумма:',Range(2,48,2).Aggregate((m,n)->m+n))
end.
ответ:
Сумма: 600
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ЛадаАндреева
12.12.2020 00:42
Выберите верную запись функции ЕСЛИ =ЕСЛИ(Логическое выражение) =ЕСЛИ([Значение_если_ложь];[Значение_если_истина]);Логическое выражение;) =ЕСЛИ(Логическое выражение;[Значение_если_ложь];[Значение_если_истина])...
Zendydla
12.12.2020 00:43
Закодировать двоичным кодом три вопросительных предложений...
glebtomilovpop0
12.12.2020 00:43
3. Возможностиграфического редактораPaint.NET (2 правильныхответа):1 простой и удобный интерфейс2 много эффектовнет слоев3 можно открывать текстовыефайлы...
polinakolesnik4
12.12.2020 00:45
Задача D. OnePlus В языке программирования OnePlus значения переменных невозможно перезаписывать. Любая переменная состоит из одной латинской буквы и определяется один раз,как сумма...
RUMBANITTA
12.12.2020 00:45
Задача A. Тетрамино Посчитайте, сколько фигур тетрамино нужно взять, чтобы ими можно было полностью заполнить нижние N рядов в клетчатом поле шириной 3 клетки и высотой N+5 клеток....
Pepsi34
03.05.2021 14:06
Установите соответствие, соединив слова стрелками. * СD-дископеративная память компьютеразаписная книжкакнигаВнутренняя памятьВнешняя память распределите...
rasukka
03.05.2021 14:06
написать краткий конспект по информатике с параграфа 4.2 до параграфа 4.3 учебник от авторов Л.Л Босова и А.Ю Босова 2019 года...
ВладаГоликова
05.11.2020 11:45
с этой таблицей истинности, ее нужно построить) ¬(А∨В)∧¬С...
njjjjjjtgl
18.01.2022 01:30
Вычисли результат следующего фрагмента кода. n = 10sum = 0i = 1while i = n:sum = sum + ii = i + 1print( The sum is , sum)545010550...
krasovskyko201
18.01.2022 01:43
Что делает /P в bat файле Распаковка русской портативной версии? после команды start...
Популярные вопросы
Втреугольнике авс угол в в два раза больше угла а, а длина стороны вс=200.найдите...
3
.(Вычислить площадь фигуры, заключенной между осью ох, прямой x=3,осью ох и линией...
1
Протон( q1=e ; m1 =1.67*10-27кг) и альфа-частица( q2=2e ; m2=6,67* 10-27 кг )...
3
Тонкий стержень длиной l=1м несет равномерно распределенный заряд с линейной плотностью...
3
Два тела, находясь на расстоянии 600м, начали двигаться навстречу друг другу....
1
4cos ва второй степени x+cos2x=5 решить уровнение...
1
Найти задерживаюшую разность потенциалов для электроноввырываемых при освещении...
1
Сколько цветов будет в палитре, если каждый базовый цвет кодировать в 3 битах?...
2
Гигантская калифорнийская секвойя имеет диаметр 36м. человек, вытянув руки в стороны,...
1
Для получения 1 кг меда пчелы должны облететь 2–4 млн. цветков и принести в улей...
3
Внимание! Если программа не работает, обновите версию!
begin
Writeln('Сумма ',2.Step(2).TakeWhile(t->t<50).Sum)
end.
Результат
Сумма 600
//Версия 3.3, сборка 1634 (14.02.2018)
begin
Println('Сумма:',Range(2,48,2).Aggregate((m,n)->m+n))
end.
ответ:
Сумма: 600