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

Сколько будет 18//6+23%5-3

👇
Ответ:
Динара22235
Динара22235
19.02.2022

ответ ' 3 '

Если вы хотите отблагодарить меня, то поставьте этому ответу "Лучший".

4,6(36 оценок)
Открыть все ответы
Ответ:
nsmorizevs
nsmorizevs
19.02.2022
// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
begin
  var a:=106.Step(6).Take(15).ToArray; a.Println
end.

Результат
106 112 118 124 130 136 142 148 154 160 166 172 178 184 190

// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
begin
  var b:=ArrRandom(30,-50,50); b.Println;
  var a:=ReadInteger('Введите число А:');
  Writeln('Сумма отрицательных: ',b.Where(x->x<0).Sum);
  Writeln('Cумма положительных, не больших ',a,', равна ',
    b.Where(x->(x>0) and (x<=a)).Sum)
end.

Пример
-21 12 8 50 -47 35 45 -2 -30 -33 3 12 41 -29 8 2 -24 -44 -50 -2 -13 -32 33 -29 35 -43 20 -44 42 -3
Введите число А: 36
Сумма отрицательных: -446
Cумма положительных, не больших 36, равна 168
4,8(39 оценок)
Ответ:
1Тамблер1
1Тамблер1
19.02.2022
// PascalABC.NET 3.2, сборка 1334 от 12.11.2016
begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  a:=a.Select(x->x div 2).ToArray;
  a.Println;
  var k1,k2:integer;
  Write('Введите k1,k2 (k1<=k2<=',a.Length,'): '); Read(k1,k2);
  Writeln('Произведение элементов с номерами [',k1,':',k2,'] равно ',
    a[k1-1:k2].Aggregate(biginteger(1),(m,n)->m*n))
end.

Пример
n= 13
12 34 -4 -18 23 45 -7 49 47 11 -24 39 31
6 17 -2 -9 11 22 -3 24 23 5 -12 19 15
Введите k1,k2 (k1<=k2<=13): 3 8
Произведение элементов с номерами [3:8] равно -313632
4,6(5 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ