Програмирование в pascal, помогите, скиньте работающую программу. Дано четырёхзначное число. Найдите среднее арифметическое его средних цифр. только пожалуйста без sum
в смысле без sum?
у нас програмирование ещё только началось, ну и нет у нас sum, плюс пишем. Вообщем если получиться без sum хоршо, если нет то так сойдёт, лишь бы работало)
так sum обычно обозначают переменную для хранения суммы
можно вместо sum писать "asdqwsgdgsr" ничего не изменится) как нравится так и называй переменные
операции sum нету, если ты эту операцию не напишешь сама, короч щас напишу эту программу
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.
Огромное спасибо!!