Задать вопрос!

Задать вопрос!

Все категории

3 года назад

15

Найти произведение четных чисел в диапазоне от 6 до 97.

Найти произведение четных чисел в диапазоне от 6 до 97.

Информатика

1 ответ:

lady-o [7.7K]3 года назад

0 0

===== PascalABC.NET =====

begin

Range(6, 97, 2).Aggregate(BigInteger.One, (p,q) -> p*q).Println

end.

Читайте также

Вопросы и задания: №2

Эдуард30078

2.
Получение : измерение температуры воздуха, фотографирование обратной стороны луны.
Передача: составление автопрогноза,фотосинтез
Хранение: з
Обработка: в, Ж, и,
Всё остальное в последнюю колонку.

0 0

4 года назад

Выведи на экран все 2-х значные числа, кратные 7. Помагите плиз!!

Игорь 233 [1]

a,i: integer;

0 0

4 года назад

Текст закодирован в 16 битной кодировке занимает в памяти компьютера 6 Кбайт, сколько символов в тексте? Заранее спасибо:)

Маргошааа

Переведём Кбайт в бит.

6 Кбайт = 6 * 1024 * 8 = 49152 бита

1 символ занимает 16 бит.

49152 / 16 = 3072

Ответ: 3072 символа

0 0

4 года назад

Объем свободной памяти на диске – 8,25 Мбайт, разрядность звуковой платы – 16. Какова длительность звучания цифрового аудиофайла

Олеся876 [4]

Решение и формулы представлены на картинке.

0 0

4 года назад

Срочно, помогите, информатика 10 класс

Вика0908

Ответ:

program Calc;

var

k, x, a, c, y: Double;

begin

Write ('k, x, a, c = ');

ReadLn (k, x, a, c);

if x > 0 then begin

y := k * Sqr (x);

WriteLn ('y = ', y);

end else if a + c <> 0 then begin

y := - x / (a + c);

WriteLn ('y = ', y);

end else

WriteLn ('деление на ноль');

ReadLn;

end.

0 0

3 года назад