1 вариант Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое - id1586922820200118 от ketium2oo5 18.01.2020 23:35

Question

Информатика: 1 вариант Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое чисели кратных8 или сообщает, что таких чисел нет (выводит «NO»). Программа получает на вход натуральные числа, количество введённых чисел неизвестно последовательность чисел заканчивается числом о (О признак окончания ввода на Входит последовательность). Количество чисел не превышает 100. Введенные числа не превышают 300. Программа должна вывести среднее арифметическое чисел, кратных 8, или

ketium2oo5 · Accepted Answer

ответ: 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.

Объяснение:

MOGZ ответил