Результаты идентичны, равенство доказано.
Var ar:array[1..10] of integer;
i,s:integer;
begin;
for i:=1 to 10 do
readln(ar[i]);
writeln('OK:');
for i:=1 to 10 do
if (i mod 2=0) and (ar[i] mod 2=0) then writeln(ar[i]);
<span>end.</span>
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (max, min, k) := (-100000, 100000, 0);
ReadSeqIntegerWhile(t -> t <> 0)
.Foreach(t ->
begin
if t > max then max := t;
if t < min then min := t;
if t mod 10 = 7 then Inc(k)
end);
Writeln('min=', min, ', max=', max, ', искомое кол-во: ', k)
end.
[4, "11331"]
[5, "3011"]
[6, "1433"]
[7, "1053"]
[8, "575"]
[9, "463"]
[10, "381"]
[11, "317"]
[12, "279"]
[13, "234"]
[14, "1d3"]
[15, "1a6"]
[16, "17d"]
[17, "157"]
[18, "133"]
[19, "111"]
[20, "j1"]
[21, "i3"]
[22, "h7"]
[23, "gd"]
[24, "fl"]
[25, "f6"]
[26, "eh"]
[27, "e3"]
[28, "dh"]
[29, "d4"]
[30, "cl"]
[31, "c9"]
[32, "bt"]
[33, "bi"]
[34, "b7"]
[35, "av"]
[36, "al"]
код на Ruby
for i in 4..36
p [i, 381.to_s(i)]
end
Слух играет огромную роль в жизни человека. Благодаря органу слуха мы воспринимаем все многообразие окружающих нас звуков, можем легко общаться с людьми, наслаждаться пением и музыкой.
Орган слуха отличается необычайной чувствительностью. Ухо здорового человека в возрасте до 25—30 лет воспринимает, например, ничтожнейшие шумы и в то же время очень сильные звуки.
Такой необыкновенно широкий предел восприятия звуков (в технике его называют динамическим диапазоном) является чрезвычайно важной особенностью органа слуха
