Лихачев Полина1978
?>

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

Информатика

Ответы

Shteinbakh

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

Объяснение:

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

Поделитесь своими знаниями, ответьте на вопрос:

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

Популярные вопросы в разделе

Александрович Андреевна
sastakhova
Larisa Bulgakova
valentinakarma2800
volkovaoksana19806037
salesrawtogo
italiankarest
oskon008
Банова_Елена431
almihanika435
soskadoa
Puschdom
Kuzminastia20038
Динков
kirycha-2000719