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

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

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

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

Последние решения
(прикреплено изображение) [удалить]
✎ к задаче 34821
(прикреплено изображение) [удалить]
✎ к задаче 34819
(прикреплено изображение) [удалить]
✎ к задаче 34829
(прикреплено изображение) [удалить]
✎ к задаче 34827
f(x)=e^(x)
f`(x)=e^(x)


L= ∫ ^(1)_(0)sqrt(1+(e^(x))^2) dx= ∫ ^(1)_(0)sqrt(1+e^(2x)) dx=

замена
sqrt(1+e^(2x))=t
1+e^(2x)=t^2
e^(2x)=t^2-1

2x=ln(t^2-1)
x=(1/2)*ln(t^2-1)
dx=(1/2) *(1/(t^2-1))* (t^2-1)`dt

dx=tdt /(t^2-1)

Вычисляю неопределенный интеграл, чтоб не связываться со сменой пределов интегрирования

∫ sqrt(1+e^(2x)) dx= ∫ t* tdt/(t^2-1)= ∫ (t^2-1+1)dt/(t^2-1)=

= ∫ (1 + 1/(t^2-1))dt

= t + (1/2) ln|(t-1)/(t+1)|+C= sqrt(1+e^(2x)) + (1/2)* ln |(sqrt(1+e^(2x))-1)/(sqrt(1+e^(2x))+1)|+C

∫ ^(b)_(a)f(x)dx=F(b)-F(a)

О т в е т. sqrt(1+e^(2)) + (1/2)* ln |(sqrt(1+e^(2))-1)/(sqrt(1+e^(2))+1)|-

sqrt(1+e^(0)) + (1/2)* ln |(sqrt(1+e^(0))-1)/(sqrt(1+e^(0))+1)|
[удалить]
✎ к задаче 34824