✎ Задать свой вопрос   *более 30 000 пользователей получили ответ на «Решим всё»

Задача 896 По каналу связи передаётся

УСЛОВИЕ:

По каналу связи передаётся последовательность положительных целых
чисел, все числа не превышают 1000. Количество чисел известно, но может
быть очень велико. Затем передаётся контрольное значение
последовательности – наибольшее число R, удовлетворяющее следующим
условиям:
3) R – произведение двух различных переданных элементов
последовательности («различные» означает, что не рассматриваются
квадраты переданных чисел; допускаются произведения различных
элементов последовательности, равных по величине);
4) R делится на 21.
Если такого числа R нет, то контрольное значение полагается равным 0.
В результате помех при передаче как сами числа, так и контрольное значение
могут быть искажены.
Напишите эффективную, в том числе по используемой памяти, программу
(укажите используемую версию языка программирования, например, Borland
Pascal 7.0), которая будет проверять правильность контрольного значения.
Программа должна напечатать отчёт по следующей форме:
Вычисленное контрольное значение: …
Контроль пройден (или – Контроль не пройден)
Перед текстом программы кратко опишите используемый Вами алгоритм
решения.
На вход программе в первой строке подаётся количество чисел N. В каждой
из последующих N строк записано одно натуральное число, не превышающее
1000. В последней строке записано контрольное значение.
Пример входных данных:
6
70
21
997
7
9
300
21000
Пример выходных данных для приведённого выше примера входных данных:
Вычисленное контрольное значение: 21000
Контроль пройден

РЕШЕНИЕ:

var M7,M3,M21,R,MAX,dat,res,i,N: longint;
begin
M7 := 0;
M3 := 0;
M21 := 0;
MAX := 0;
readln(N);
for i := 1 to N do
begin
readln(dat);
if ((dat mod 7) = 0) and ((dat mod 3) > 0) and (dat > M7) then
M7 := dat;
if ((dat mod 3) = 0) and ((dat mod 7) > 0) and (dat > M3) then
M3 := dat;
if (dat mod 21 = 0) and (dat > M21) then
begin
if M21 > MAX then MAX := M21;
M21 := dat
end
else
if dat > MAX then
MAX := dat;
end;
readln(R);
if (M7*M3 < M21*MAX) then
res := M21*MAX
else
res := M7*M3;
writeln('Вычисленное контрольное значение: ',res);
if R = res then writeln('Контроль пройден')
else writeln('Контроль не пройден');
end.

Вопрос к решению?
Нашли ошибку?

ОТВЕТ:

в решение

Добавил slava191, просмотры: ☺ 4628 ⌚ 10.04.2014. информатика 10-11 класс

Решения пользователелей

Хочешь предложить свое решение? Войди и сделай это!
Увы, но свой вариант решения никто не написал... Будь первым!

Написать комментарий

Последнии решения
vector{a}×vector{b}=(-2;1;7)

Векторы коллинеарны ⇒ их координаты пропорциональны

-2: α =1:3=7: β ⇒
-2: α =1:3

α =-6


1:3=7: β

β =21
(прикреплено изображение) [удалить]
✎ к задаче 31067
Составим уравнение плоскости, проходящей через три точки A, B, C
(прикреплено изображение) [удалить]
✎ к задаче 31068
vector{F}=(-4;-4;-4)
vector{AB}=(12-11;-10-(-9);3-5) =(1;-1-2)- плечо силы

vector{M}= vector{F}× vector{AB}
(прикреплено изображение) [удалить]
✎ к задаче 31065
Δ KFM подобен Δ DFM ( KM || DA)

Из подобия следует пропорциональность сторон

KM: DA= FK: FD

KM:15 =3 : 5

КМ=9 (см)
(прикреплено изображение) [удалить]
✎ к задаче 31066
vector{BC}=(2/3)vector{a}+(4/3)vector{b}

Решение.
По правилу треугольника
vector{АК}+vector{КC}=vector{AC}
и
vector{BM}+vector{MC}=vector{BC} ⇒ (т.к. vector{MC}=(1/2)vector{АC}

vector{BC}=vector{b}+(1/2)*vector{AC}=

=vector{b}+(1/2)vector{АК}+(1/2)vector{КC}=

=vector{b}+(1/2)vector{a}+(1/2)*(1/2) vector{BC}.

Итак,
vector{BC}=vector{b}+(1/2)vector{a}+(1/2)*(1/2) vector{BC}.

(3/4)vector{BC}=vector{b}+(1/2)vector{a}

vector{BC}=(4/3)*vector{b}+(4/3)*(1/2)vector{a}
[удалить]
✎ к задаче 31063