✎ Задать свой вопрос   *более 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, просмотры: ☺ 5086 ⌚ 10.04.2014. информатика 10-11 класс

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

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

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

Последние решения
1.1
log_(2)x=-3 ⇒ x=2^(-3); [b]x=1/8[/b]

1.2
0,00032=0,2^5
корень пятой степени из 0,2^5 равен [b]0,2[/b]
[удалить]
✎ к задаче 38868


Замена переменной:
sqrt((x+1)/(x+y))=u, u>0
sqrt((x+y)/(x+1))=1/u

sqrt((x+1)/(y+2))=v, v > 0
sqrt((y+2)/(x+1))=1/v

Система примет вид:

{u+(1/u)=2 ⇒ (u^2-2u+1)/u=0 ⇒ u=1
{v-(1/v)=(3/2) ⇒ (2v^2-3v-2)/v=0 ⇒ v=2 или v=-1/2 ( не удовл v>0)

sqrt ((x+1)/(x+y))=1 ⇒ (x+1)/(x+y)=1 ⇒ x+1=x+y ⇒ y=1; любое, х ≠ -1

sqrt((x+1)/(у+2))=2 ⇒ (x+1)/(y+2)=4 ⇒ x+1=4y+8, у ≠ -2; х ≠ -1

{y=1
{x+1=4y+8 ⇒ x=11

О т в е т. (11;1)
[удалить]
✎ к задаче 38866
P=I(1+0,2)cos^2θ [удалить]
✎ к задаче 38857
Справа изменения для ваших чисел (прикреплено изображение) [удалить]
✎ к задаче 38855
(прикреплено изображение) [удалить]
✎ к задаче 38847