Дано четырёхзначное число найти среднее арифмитическое его цифр если оно чётное и возвести в квадрат каждую цифру если оно нечётное
syltanchik1338
2
21.05.2019 22:00
1
Другие вопросы по теме Информатика
gigeriti28391vlad
02.02.2021 12:03
Sergey2003456
19.05.2019 10:16
bbigigitovadakit
19.05.2019 12:00
DVD123456789
19.05.2019 10:16
sanzarerzanylu8
19.05.2019 12:00
125894
22.02.2021 09:18
malinovaya14
22.02.2021 09:19
aaaaaaggghhh
22.02.2021 09:20
елеонора5
17.03.2019 20:10
Популярные вопросы
- 2 класс рускиий язык упр 4 стр 61 автор Калашникова, Беспалова...
1 - Сделайте Упражнение глаголы: treffen, kochen письменно Помни, что сильные...
3 - B) Use the phrases in the correct form to complete the sentences. Aizhan...
3 - ответить на во по рассказу М. Зощенко Голубая книга ...
3 - Напишите уравнения следующих реакций серная кислота+бромид калия. гидроксид...
3 - Составить свой вариант планирования занятия физической подготовки...
3 - В 2015 году в городском квартале проживало 20 000 человек. В 2016 году...
1 - 1.Кто такой Дмитрий Ионыч Старцев? Каким мы видим его в начале произведения?...
2 - Какая хозяйственная деятельность возможна на территории этих стран....
3 - ) В чём преимущества и недостатки внутристраничных, внутрисистемных...
1
uses crt;
var a,b,c,d,ch:integer; sr:real;
begin
readln(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 then
writeln((a+b+c+d)/4)
else
writeln(sqr(a),' ',sqr(b),' ',sqr(c),' ',sqr(d));
readln;
end.