1. найти среднее арифметическое цифр (сумму цифр) четырехзначного числа n, если среднее арифметическое (сумма цифр) больше 5 и является чётным числом на экран выдать значение. в паскале!
Program a; // имя программы var n:string; // четырехзначное число будем вводить с клавы var n1, n2, n3, n4, err: integer; // n1 - n4 это цифры числа, например 1234 var sa: double; // среднее арифметическое Begin // начало Read( n ); // вводим с клавиатуры число N Val( n[1], n1, err ); // первая цифра числа N Val( n[2], n2, err ); // вторая цифра числа N Val( n[3], n3, err ); // третья цифра числа N Val( n[4], n4, err ); // четвертая цифра числа N sa := ( n1 + n2 + n3 + n4 ) / 4; // находим среднее арифметическое if ( sa / 2 = Trunc( sa / 2 ) ) and ( sa > 5 ) then Write( sa ); // если оно четное и больше пяти - выдаем значение на экран End. // конец
Задача очень простая. Не знаю какие у вас там формулы и какими буквами что обозначается, так что попробую обьяснить на пальцах
- каждый символ конкретного алфавита занимает определенный обьем/вес/меру в информации которая измеряется в битах - любой из символов данного/конкретного алфавита занимает одинаковое кол-во бит. Т.е. каковы бы не были символы - их количество определяет их вес
Аналог задачи. Продаются яблоки поштучно. Известна цена за одно яблоко, не зависимо от того большое оно или маленькое, зеленое или красное, но стоят все одинаково. Купили всего 130 яблок, и за покупку заплатили 650$ . Сколько стоит одно яблоко? Правильно. одно яблоко стоит 650/130 = 5$
Задача очень простая. Не знаю какие у вас там формулы и какими буквами что обозначается, так что попробую обьяснить на пальцах
- каждый символ конкретного алфавита занимает определенный обьем/вес/меру в информации которая измеряется в битах - любой из символов данного/конкретного алфавита занимает одинаковое кол-во бит. Т.е. каковы бы не были символы - их количество определяет их вес
Аналог задачи. Продаются яблоки поштучно. Известна цена за одно яблоко, не зависимо от того большое оно или маленькое, зеленое или красное, но стоят все одинаково. Купили всего 130 яблок, и за покупку заплатили 650$ . Сколько стоит одно яблоко? Правильно. одно яблоко стоит 650/130 = 5$
var n:string; // четырехзначное число будем вводить с клавы
var n1, n2, n3, n4, err: integer; // n1 - n4 это цифры числа, например 1234
var sa: double; // среднее арифметическое
Begin // начало
Read( n ); // вводим с клавиатуры число N
Val( n[1], n1, err ); // первая цифра числа N
Val( n[2], n2, err ); // вторая цифра числа N
Val( n[3], n3, err ); // третья цифра числа N
Val( n[4], n4, err ); // четвертая цифра числа N
sa := ( n1 + n2 + n3 + n4 ) / 4; // находим среднее арифметическое
if ( sa / 2 = Trunc( sa / 2 ) ) and ( sa > 5 ) then Write( sa ); // если оно четное и больше пяти - выдаем значение на экран
End. // конец