Var
n, k, s: integer;
begin
s := 0;
k := 0;
repeat
write('Введите целое число = ');
readln(n);
if n > 0 then begin
k := k + 1;
s := s + n;
end
until n = 0;
writeln('Среднее арифметическое = ', s / k);
end.
В ячейку В2 вводите формулу, как показано на рисунке, а дальше действуете мышкой
Самый маленький круг-желтый
потом зеленый
красный вокруг зеленого
самый большой синий
Объяснение ...в множестве многоугольников есть четырехугольники (ромбы,прямоугольники, трапеции и др)
потом четырехугольники, только с прямыми углами---прямоугольники
ну и затем квадраты их меньше всего
//PascalABC.NET 3.3,сборка 1627 от 27.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var a:=0;var t:=0;
for var i:=1 to 3 do
begin
if i=3 then
a:=1
else a:=7;
a*=7;
t:=t+a;
end;
t:=t*7;
Writeln('Количество предметов=',t);
end.
Или как в школах учат ->
var a,t:integer;
begin
for var i:=1 to 3 do
begin
a:=0; t:=0;
if i=3 then
a:=1
else a:=7;
a*=7;
t:=t+a;
end;
t:=t*7;
Writeln('Количество предметов=',t);
end.