Var
v, u, h, d, vp: longint;
begin
readln(v, u, h);
vp := v - u;
d := h div vp;
if (h mod vp <> 0) then
inc(d);
writeln(d);
end.
Блок-схема - в прилагаемом файле.
Тестовый пример:
А = 10
5, -2, 6, -4, 7
Среднее арифметическое = (5-2+6-4+7)/5 = 12/5 = 2,4
PS. Возможно зацикливание (это зависит от вводимых чисел).
1. числовая-количественная - мера объектов и их свойств в окружающем мире.
2. Звуковая — воспринимаемая органами слуха.
3.Тактильная — воспринимаемая тактильными рецепторами.
4. Обонятельная — воспринимаемая обонятельными рецепторами.
5. Вкусовая — воспринимаемая вкусовыми рецепторами.
Var
a1,b2,c,d:integer;
begin
write('Введите числа через пробел: ');
read(a1);
for d:=2 to 10 do begin
read(b2);
if b2>a1 then inc(c);
a1:=b2;
end;
if c=9 then writeln('Да') else writeln('Нет');
end.