Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Найти площадь произвольного четырехугольника, заданного координатами вершин https://www.cyberforum.ru/ pascal/ thread1974367.html Найти площадь произвольного четырехугольника, заданного координатами вершин (использовать функцию определения площади треугольника по координатам его вершин).	Забавное уравнение Pascal Определим для любых двух непустых строк, состоящих из маленьких латинских букв, две операции: 1. Сложение. Обозначается знаком “+”. В результате получается строка, получаемая приписыванием второй строки к концу первой строки. Например, run+site=runsite. 2. Умножение. Обозначается знаком “*”. В результате получается строка, получаемая путем вставки второй строки вслед за каждым символом первой...
Pascal Произвести заданные действия с матрицей Дана матрица А а) получить сумму и количество нечетных элементов. б) найти min и max элементы матрицы. в) получить среднеарифметическое значение отрицательных элементов матрицы. г) переставить строки с min и max элементами матрицы. https://www.cyberforum.ru/ pascal/ thread1974294.html	Pascal Найти количество элементов матрицы, удовлетворяющих заданному условию https://www.cyberforum.ru/ pascal/ thread1974289.html Найти количество элементов матрицы А, удовлетворяющих условию: -100<=A(I,J)<=100 и образовать из этих элементов массив В. (Паскаль)
Pascal Вывести самую длинную последовательность четных цифр в строке Дана строка символов, содержащая цифры. Вывести самую длинную последовательность четных цифр в строке.	Pascal Вывести все четные цифры строки Дана строка символов, содержащая цифры. Вывести все четные цифры строки. https://www.cyberforum.ru/ pascal/ thread1974248.html
Pascal Вывести столбец матрицы, в котором расположено максимальное значение Вывести на печать элементы столбца матрицы, в котором расположено максимально значение. https://www.cyberforum.ru/ pascal/ thread1974240.html	Pascal Работа с матрицами Помогите написать программу по этому заданию: Дано три квадратные матрицы 4-го порядка. Написать ту из них, норма которой наименьшая (думаем что такая матрица одна). Как норму матрицы взять максимум абсолютной величины ее элементов.
Pascal Решение задач со строками Получить из слова А Слово Б, используя процедуры и функции при работе со строками. Из слова: Кузнечик нужно получить Человечек https://www.cyberforum.ru/ pascal/ thread1974036.html	Pascal Представление графа https://www.cyberforum.ru/ pascal/ thread1974027.html Представление графа:матрица смежности. Граф: ориентированный Задача:Преобразовать в матрицу инциденций
Сократить дробь Pascal Тема: Процедуры пользователя Сократить дробь вида a/b (a, b – вводимые натуральные числа), создав процедуру для нахождения наибольшего общего делителя двух натуральных чисел.	Pascal В массиве из 14 элементов каждый второй элемент массива сделать равным нулю 1. В массиве из 14 элементов каждый второй элемент массива сделать равным нулю. 2. Заменить максимальный элемент на противоположный по знаку. https://www.cyberforum.ru/ pascal/ thread1973982.html

Cyborg Drone

Модератор

9656 / 4976 / 3265

Регистрация: 17.08.2012

Сообщений: 15,476

04.05.2017, 18:12

Найти среднее арифметическое цифр каждого из двух чисел - Pascal - Ответ 10401604

04.05.2017, 18:12. Показов 4142. Ответов 1

Метки (Все метки)

Сообщение было отмечено 1zer0 как решение

Решение

Pascal

function da(n: integer): real;
var k: integer;
    s: real;
begin
  //n := abs(n);
  k := 0;
  s := 0;
  repeat
    s := s + n mod 10;
    n := n div 10;
    inc(k)
  until n = 0;
  da := s / k
end;
 
var i, x: integer;
begin
  for i := 1 to 2 do
    begin
      write('x', i, ' = ');
      readln(x);
      writeln('Average of digits: ', da(x):0:12)
    end;
  readln
end.

Если раскомментировать строку 5, программа сможет работать со всеми целыми числами, а не только с натуральными.

Вернуться к обсуждению:
Найти среднее арифметическое цифр каждого из двух чисел Pascal

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

04.05.2017, 18:12

Готовые ответы и решения:

Найти среднее арифметическое квадратов и среднее арифметическое модулей двух чисел
Дано 2 числа. Найти среднее арифметическое их квадратов и среднее арифметическое их модулей.

Найти среднее арифметическое цифр каждого из двух чисел
Вводятся 2 натуральных числа. Найти среднее арифметическое цифр каждого из них (создать функцию для...

Найти среднее арифметическое квадратов двух чисел и среднее арифметическое их модулей
1. Даны два числа. Найти среднее арифметическое их квадратов и среднее арифметическое их модулей.

Найти среднее арифметическое квадратов и среднее арифметическое абсолютных значений двух вещественных чисел
Всем здрасте помогите плиз. Дается два вещественных числа. Найти среднее арифметическое их...

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

04.05.2017, 18:12

Помогаю со студенческими работами здесь

Найти среднее арифметическое двух чисел в четвертой степени и среднее арифметическое их квадратов
срочно пожалуйста!!!Даны два числа. Найти среднее арифметическое этих чисел в четвертой степени и...

Найти среднее арифметическое цифр каждого элемента последовательности
Задания реализовать в среде Visual Studio в одном проекте на С++ 1. вводится последовательность из...

Найти среднее арифметическое цифр каждого числа последовательности
помогите пожалуйста. Вводится последовательность из N целых чисел. Найти среднее арифметическое...

Найти среднее арифметическое кубов двух чисел и среднее геометрическое модулей этих чисел
Даны два действительных числа.Найти среднее арифметическое кубов этих чисел и среднее...

Наверх