Назовём натуральное пятизначное число (10000<=N>=99999) счастливым, если суммы двух его первых и двух последних цифр различаются не более, чем на 2. Найдите количество таких чисел.
Как то раз Я (Будильник) разбудил своего хозяина в не то время. Хозяин как ни в чём не бывало пошёл на роботу, даже не посмотрев на часы. Так я понял что я могу управлять человеком, и сразу же после этого я стал использовать своего хозяина и всякими образами издеваться над ним. Вскоре мой хозяин стал что то подозревать, но я был хитрее, я стал переводить стрелки своих часов и человек опять верил мне, после полного досмотра и нашёл в мне неисправность его решение было очень жестким - он выкинул меня на улицу.
begin Randomize; Writeln('Элементы массива'); k := 0; s := 0; for i := 1 to n do begin x[i] := Random(50); Write(x[i]:3); end; Writeln; Writeln('Элементы со значением в интервале [7;10]'); for i := 1 to n do if (x[i] >= 7) and (x[i] <= 10) then begin k := k + 1; s := s + x[i]; Write(x[i]:3) end; if k = 0 then Writeln('не найдены') else Writeln(#13#10, ' Элементов:', k, ', среднее арифметическое=', s / k:5:3) end.
n = 40;
var
x: array[1..n] of integer;
i, k, s: integer;
begin
Randomize;
Writeln('Элементы массива');
k := 0; s := 0;
for i := 1 to n do
begin
x[i] := Random(50);
Write(x[i]:3);
end;
Writeln;
Writeln('Элементы со значением в интервале [7;10]');
for i := 1 to n do
if (x[i] >= 7) and (x[i] <= 10) then
begin
k := k + 1; s := s + x[i];
Write(x[i]:3)
end;
if k = 0 then Writeln('не найдены')
else Writeln(#13#10, ' Элементов:', k, ', среднее арифметическое=', s / k:5:3)
end.
Тестовое решение:
Элементы массива
24 33 36 29 12 7 5 36 3 48 40 40 46 6 10 23 33 3 38 48 29 37 11 40 44 16 17 18 34 38 33 39 9 0 41 37 42 2 40 31
Элементы со значением в интервале [7;10]
7 10 9
Элементов:3, среднее арифметическое=8.667