Поделитесь своими знаниями, ответьте на вопрос:
1 вариант Напишите программу, которая в последовательности натуральных чисел находитсреднее арифметическое чисели кратных8 или сообщает, что таких чисел нет(выводит «NO» Программа получает на вход натуральные числа, количествовведённых чисел неизвестно последовательность чисел заканчивается числом о(О признак окончания ввода на Входит последовательность). Количествочисел не превышает 100. Введенные числа не превышают 300. Программадолжна вывести среднее арифметическое чисел, кратных 8, или вывести «NO», если таких чисел нет. Начение выводитисокинон до десятых.Пример работы программы:Входные данные Выходные данныеНа с++ КР
ответ: Pascal последняя версия, задача только на хз почему 1 неправильно
program C1;
var
N, x: int64;
begin
read(x);
read(N);
if (N > 0) and (N <= abs(x)) then
x := x + n
else if (N > 0) and (N >= abs(x)) then
x := x + n + 1;
if (N < 0) and (abs(N) <= abs(x)) then
x := x - abs(N)
else
if (N < 0) and (abs(N) >= abs(x)) then
x := x - abs(N) - 1;
if x <> 0 then
writeln(x)
else begin
if N > x then
x := x +1
else
x := x -1;
writeln(x);
end;
end.
Объяснение: