Задать вопрос Регистрация
Помочь другим

  • дано четырёхзначное число найти среднее арифмитическое его цифр если оно чётное и возвести в квадрат каждую цифру если оно нечётное

Ответы 1

  • uses crt;var a,b,c,d,ch:integer; sr:real;beginreadln(ch);a:= ch div 1000;b:= ( ch div 100) mod 10;c:= ( ch div 10) mod 10;d:=ch mod 10;if ch mod 2 = 0 thenwriteln((a+b+c+d)/4)else

    writeln(sqr(a),' ',sqr(b),' ',sqr(c),' ',sqr(d)); readln;end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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