Склавиатуры вводится последовательность чисел до тех пор пока не будет введено число 0. требуется найти произведение чисел из введенной последовательности кратных пяти

👇

Увидеть ответ

Ответ:

ВасилийПупкин227

07.01.2023

var
x, s: integer;

begin
s := 1;
repeat
readln(x);
s *= (x = 0 ? 1 : x);
until (x = 0);
writeln(s);
end.

4,8(59 оценок)

Открыть все ответы

Ответ:

alyonaSidorenk

07.01.2023

должно быть минимум 7 элементов

Объяснение:

Каждый излучающий элемент имеет два состояния- красный или синий цвет (выключенное состояние не рассматривается по условиям).

Значит, число возможных вариантов, которые можно показать на таком табло равно двум в степени, равной числу элементов.

Например:

один элемент: $2^{1}=2$ различных сигнала (состояния панели)

три элемента: $2^{3}=8$ различных сигналов можно отобразить

шесть элементов: $2^{6}=64$ различных сигнала (мало, надо сто)

семь элементов: $2^{7}=128$ различных сигналов (нам хватит)

Выбираем семь элементов, т.к. ими можно отобразить сто вариантов (и даже немного больше).

Можно и посчитать число элементов напрямую, без подбора.

Считается через логарифм по основанию два из десяти, затем округляется с избытком (то есть, всегда вверх):

$N=\log_2 10=\frac{\lg 10}{\lg 2}=\frac{\ln 10}{\ln 2}=6,64385619...\approx 7$

В расчёте также показано, что такой логарифм можно посчитать через отношение двух десятичных логарифмов (lg), либо двух натуральных логарифмов (ln).

4,8(59 оценок)

Ответ:

MariaUralova

07.01.2023

Ну почему,когда просят написать программу никто никогда не указывает язык программирования.я напишу на языке паскаль с входным и выходным файлом,но если это не тот язык,твоя проблема.(сообщения в фигурных скобках,это комментарии,просто для пояснение,можешь удалить их)

program p1;
const n=10;
var a : array[1..n] of integer;
i,b,c:integer;
begin
randomize;
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);

for i:=1 to n do {Заполнение исходного массива}
a[i]:=random(21)-10;

for i:=1 to n do {Вывод исходного массива(можно удалить эти строчки)}
write(a[i]:4);

c:=0; {Инверсия массива}
for i:=1 to 2 do begin
b:=a[i];
a[i]:=a[5-c];
a[5-c]:=b;
c:=c+1;
end;
c:=0;
for i:=6 to 8 do
begin
b:=a[i];
a[i]:=a[10-c];
a[10-c]:=b;
c:=c+1;
end;
writeln;

for i:=1 to n do {Вывод инверсированого массива}
write(a[i]:4);

close(input);
close(output);
end.

4,7(87 оценок)

Это интересно:

Образование-и-коммуникации

10.06.2022

Заставьте свой мозг работать на 100%: как повысить продуктивность обучения...

Транспорт

08.01.2020

Как рассчитать первоначальный взнос за автомобиль...

Дом-и-сад

23.11.2020

Как навести порядок в гараже: полезные советы от специалистов...

Кулинария-и-гостеприимство