Размещено 5 лет назад по предмету Информатика от mrGrizly

Написать программу на языке Pascal По каналу связи передается последовательность положительных целых чисел, все числа не превышают 1000, их количество заранее неизвестно. Каждое число передается отдельно. Признаком конца передаваемой последовательности является число 0. После числа 0 передается контрольное значение – наибольшее число, которое можно получить умножением двух различных элементов последовательности. Напишите эффективную программу, которая получает последовательность чисел и следующие за ней признак конца и контрольное значение, а также проверяет правильность контрольного значения. Программа должна напечатать отчет следующего вида:
Получено .. чисел
Полученное контрольное значение: ….
Вычисленное контрольное значение:…
Контроль пройден (или – контроль не пройден)

Ответ на вопрос

Ответ на вопрос дан HappyCoder

var
n, max, count, contrl, max2: integer;

begin
contrl := 0;
max := 0;
Writeln('Введите числа: ');
Readln(n);
while n <> 0 do
begin
Inc(count);
if n>max then begin max2:=max; max:=n end
else if n > max2 then max2 := n;
Read(n);
end;
max2*=max;
Writeln('Введите контрольное значение: ');
Read(contrl);
Writeln('Получено: ', count, ' чисел');
Writeln('Получено контрольное значение: ', contrl);
Writeln('Вычисленное контрольное значение:: ', max2);
if contrl = max then Writeln('Контроль пройден')
else Writeln('Контроль не пройден');
end.
1. Ответ на вопрос
  
  Ответ на вопрос дан HappyCoder
  
  Исправил..
Ответ на вопрос

Ответ на вопрос дан BobbyFresnel

===== PascalABC.NET =====
begin
var (n1, n2) := ReadInteger2;
if n2 > n1 then
Swap(n1, n2);
var k := 2;
foreach var n in ReadSeqIntegerWhile(p -> p <> 0) do
begin
if n > n2 then
n2 := n;
if n2 > n1 then
Swap(n1, n2);
Inc(k)
end;
var ks := ReadInteger;
Println('Получено', k, 'чисел');
Println('Полученное контрольное значение:', ks);
n1 *= n2;
Println('Вычисленное контрольное значение:', n1);
Print('Контроль', ks = n1 ? 'пройден' : 'не пройден')
end.