Регистрация
Andriy0101
16.04.2023 01:48
Информатика
Есть ответ 👍

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

249
341
Посмотреть ответы 1

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

UlianaIvleva
UlianaIvleva
4,7(87 оценок)
Код на паскале: program proba; uses crt; var n,s: integer; begin writeln('введите натуральное число'); readln(n);   s: =0; repeat s: =s+n mod 10;     n: =n div 10; until n=0;   writeln('сумма цифр ',s); end.p.s. программа вычисляет не только трехзначные числа  ; )

Популярно: Информатика