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

Question

65

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

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

ответить

в избранное ссылка

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

mazit · Accepted Answer

46

mazit

15 февраля 2023

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.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: