65

Програмирование в pascal, помогите, скиньте работающую программу. Дано…

06 марта 2023

Програмирование в pascal, помогите, скиньте работающую программу. Дано четырехзначное число. Найдите среднее арифметическое его среднихцифр. Только пожалуйста без sum

категория: информатика



46

Var a,i,n,sum: integer; Begin write ('Введите 4-х значное число: '); readln (n); i: =n mod 100; i: =i div 10; a: =n div 100; a: =a mod 10; sum: =a+i; i: =sum div 2; writeln ('Среднее арифметическое средних чисел числа',n,'=',i); End.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...