У меня так получилось
a:=9
b:=3
c:=1
1. a=b - нет
2. c:=1+(a-b)
a:=a-1
b:=b+1
c:=7
a:=8
b:=4
3.a=b - нет
4.c:=4
a:=7
b:=5
5.a=b - нет
6.c:=3
a:=6
b:=6
7.a=b - да
И выведет конечный результат
a:=6
b:=6
c:=3
Сначала опишем алгоритм.
Из числа M вида “ABC” требуется получить число N вида “CBA”.
Для этого необходимо найти такое число К, что M+K=N.
100A+10B+C+K=100C+10B+A
99A+K=99C
K=99C-99A=99(C-A)
Формула получения искомого слагаемого получена. Теперь запишем формулы для получения чисел A и C из N.
A=[N/100]
C=N-10*[N/10]
Теперь можно составить блок-схему.
1) Начало
2) Ввод числа M
3) A=[N/100]
C=N-10*[N/10]
K=99*(C-A)
N=M+K
4) Вывод N
5) Конец.
1. =ДЛСТР(A2)
2. =ЯЧЕЙКА("тип";A2)
или
=ТИП(A2)
3. Если приведенная таблица записана в диапазоне ячеек A2:H20; искомое значение кода (250) - в ячейке A22, то формула будет:
=ИНДЕКС(A2:H20;ПОИСКПОЗ(A22;A2:A20;0);5)
Вам нужно подключить библиотеки iostream и cmath.
там, где у вас две строки #include, впишите в первую <iostream>
и во вторую <cmath>. Должно получиться так :
#include <iostream>
#include <cmath>
//PascalABC.Net 3.1.0.1200
var
x0, xk, h, e, x, a, s: real;
i: integer;
begin
readln(x0, xk, h, e);
x := x0;
repeat
a := 1 / 2 / 3;
s := a;
i := 0;
repeat
i := i + 1;
a := a * (-1) * x * x / (2 * i + 1) / (2 * i);
s := s + a;
until abs(a) < e;
writeln(s:15:5, ' ', (sin(x) / x):15:5);
x := x + h;
until x >= xk;
end.