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

197

310

Посмотреть ответы 2

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

Pikasso07

Информатика

4,6(97 оценок)

// pascalabc.net 3.1, сборка 1201 от 18.03.2016 begin var k: =0; var n: =readinteger(); var nmax: =0; while n< > 0 do begin inc(k); if n mod 10 = 0 then if n> nmax then nmax: =n; n: =readinteger() end; var cntrl: =readinteger(); writeln('получено ',k,' чисел'); writeln('полученное контрольное значение: ',cntrl); writeln('вычисленное контрольное значение: ',nmax); if cntrl=nmax then writeln('контроль пройден') else writeln('контроль не пройден') end. тестовое решение: 53 16 40 9 10 32 74 0 40 получено 7 чисел полученное контрольное значение: 40 вычисленное контрольное значение: 40 контроль пройден