Задача 2а. Який буде внесок через 10 років, якщо початкова сума виражається чотиризначним числом, утвореним з вашого номеру у журналі дописуванням двох чи трьох нулів?
var m: array[1..n] of integer; i, mn, mx: integer;
begin Write('Введите через пробел три целых числа: '); i := 1; repeat Read(m[i]); i := i + 1 until i > n; mn := m[1]; mx := mn; i := 2; repeat if mx < m[i] then mx := m[i] else if mn > m[i] then mn := m[i]; i := i + 1 until i > n; Writeln('Разность наибольшего с наименьшим равна ', mx - mn) end.
Тестовое решение:
Введите через пробел три целых числа: 7 9 3 Разность наибольшего с наименьшим равна 6
Насколько я помню,операторы div и mod - операторы деления.mod - возвращает остаток от деления,а div - наоборот,целую часть.Алгоритм прост в данном случае: Пусть число abcd - заданное пользователем число.Тогда первая цифра будет равна : a = abcd div 1000 //a - число тысяч Вторая : b = (abcd - (a*1000)) div 100 //b - число сотен Третья : c = (abcd - (a*1000 + b*100)) div 10 // c - число десятков Четвертая : d = abcd mod 10 // d - остаток от деления,в данном случае число единиц. Остается только вывести a,b,c и d через пробел на экран.
n = 3;
var
m: array[1..n] of integer;
i, mn, mx: integer;
begin
Write('Введите через пробел три целых числа: ');
i := 1;
repeat
Read(m[i]);
i := i + 1
until i > n;
mn := m[1];
mx := mn;
i := 2;
repeat
if mx < m[i] then mx := m[i]
else
if mn > m[i] then mn := m[i];
i := i + 1
until i > n;
Writeln('Разность наибольшего с наименьшим равна ', mx - mn)
end.
Тестовое решение:
Введите через пробел три целых числа: 7 9 3
Разность наибольшего с наименьшим равна 6