1 + (1/2) + (1/3) + (1/6) = 1 + (3/6) + (2/6) + (1/6) = 1 + 1 = 2
Во время работы с компьютером
По часовой стрелке, начиная с верхней вершины:
17, 21, 19, 23, 15
MS (Memory Save) - кнопка означает сохранить число, отображенное в данный момент на дисплее калькулятора в память.
MR (Memory Read) - кнопка означает считать число из ячейки памяти и вывести его на дисплей.
var
a, m : integer;
begin
writeln('введите 8 чисел');
read(m);
for var i := 2 to 8 do begin
read(a);
if a > 0 then if a < m then m := a;
end;
writeln('наименьшее из чисел = ', m);
end.
0 не учитывается, если 0 тоже считать как положительное число то
"if a > 0" нужно заменить на "if a >= 0"