• написать программу для вычисления произведения и среднего арифметического чисел от 1 до n, которые: 1) нечётные и кратны 3

Ответы 1

  • uses crt;var i,b,x,q:integer;c:real;var a: array [1..3] of integer;beginclrscr;writeln('Введите числа');for i:=1 to 3 doread(a[i]);q:=1;for i:=1 to 3 do beginif (a[i] mod 3 = 0) and ( a[i] mod 2 = 1 )then x:=x+1;if (a[i] mod 3 = 0) and ( a[i] mod 2 = 1 )then b:=b+a[i];if (a[i] mod 3 = 0) and ( a[i] mod 2 = 1 )then q:=q*a[i];c:=b/x;end;writeln('Среднее арифметическое = ',c);writeln('Произведение = ',q);end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years