1.Найди частное z между переменными делителями a и b без операции деления. Опиши алгоритм в блок-схеме, с ученического языка программирования, а так же используйте таблицу значений. 2. Население города U увеличивается на 10% ежегодно. В текущем году оно составляет S человек. Составьте блок-схему алгоритма вычисления предполагаемой численности населения города через a лет. Продублируйте алгоритм на ученическом языке программирования. Составьте таблицу значений переменных, задействованных в алгоритме.
3. Каждая бактерия делится на три в течение 1 минуты. В начальный момент имеется одна бактерия. Составьте блок-схему алгоритма вычисления количества бактерий через x минут. Продублируйте алгоритм на ученическом языке программирования. Исполните алгоритм, фиксируя каждый его шаг в таблице значений переменных.
4. Найди частное z между переменными делителями a и b без операции деления. Опиши алгоритм в блок-схеме, с ученического языка программирования, а так же используйте таблицу значений.
конкретно в каких стейтментах была ошибка , я не смог разобраться , но фактически у тебя
1.был не правильный вывод (m[1])
2.неправильная итерация по циклу с переменной 'с'
крч легче было просто переделать
var
c, n, i, j: integer;
m: array[1..1000] of integer;
begin
Readln(n);
for i := 1 to n do
begin
m[i] := i;
Write(m[i], ' ');
end;
writeln;
while n >= 1 do
begin
if c+2 < n then c := c + 3 else c := n - c + 3;
for i:=c to n do m[c]:=m[c+1];
n := n - 1;
end;
writeln(m[c]);
end.