Var mas: array [1..10] of integer;
k,i:integer;
begin
for i:=1 to 10 do
k:=0;
readln(mas[i]);
k:=k+mas[i];
writeln(mas[i] ,'+');
write(k);
end.
Нас учили такие задачи решать с конца. Смотри у тебя дано число 38 (его можно разделить на 2 или вычесть 3). Поскольку оно делиться на 2 нацело используем деление. Получаем 19 (на 2 не делиться следовательно вычитаем 3)=16 и т.д... И у тебя скорее всего опечатка, потому что как ни крут и за 5 шагов не выполнить. Скорее всего нужно из числа 2 в 38. ну или решение должно занять 6 шагов, что очень вряд ли
1 команда 38/2=19
2 команда 19-3=16
1 команда 16/2=8
1 команда 8/2=4
1 команда 4/2=2
1 команда 2/2=1
Т.к начинали с конца считать полученный набор команд записывается с конца : 111121
Формула указана не ясно в задании, я указал в ответе так как оно более менее смотрится понятно, но вам стоит уточнить. Что до алгоритма, то он выглядит вот таким вот образом. Внимание, первый член данного ряда считается за 0, вам стоит так же уточнить у преподавателя, в задании этого явно не указано, но зачастую такое значение традиционно.
Ошибки в вашем алгоритме:
1. У вас условие k < 0, это значит, что если будет введено k = 0, то алгоритм отработает, но 0 членов быть не может, это не имеет смысла.
2. Цикл у вас выводит значение n-го члена после каждой итерации, а не единожды.
Спасибо за отметку "Лучший ответ" и нажатую кнопочку "спасибо" (:
1а) -0.0222
1б) 0,0000001
1в) 6800000
1г) 4.3
2)
B=A*A (A^2)
C=B*B (A^4)
D=C*C (A^8)
E=D*C(A^12)
Result=E*A (A^13)
Program room;uses crt;var a, b, h : integer; v, s, l, k : real;begin write('Введите длину, ширину и высоту комнаты : '); readln(a, b, h); l:= 10.5; k:= 0.5; v:= a * b * h; s:= l * k; writeln('Ответ : ',v/s :5:2);end.
