Индексы 0, 1, 2, 3, 4, 5...
Ответ: A
Uses crt;
var a,b,c:integer;
begin
writeln('Vvedi a,b')
readln(a,b);
c:=a+b;
if (a>b) then
begin
b:=abs(a-b);
a:=c;
end
else if (a<b) then
begin
a:=abs(a-b);
b:=c;
end;
writeln('a=',a,' b=',b);
<span>end.</span>
Var
a,b,c,d: integer;
begina:=-6;
b:=2;if a>b then
c:=a-b
else
c:=a*b;
d:=1;while c<a do begin
d:=d+1;
c:=c+1;
end;
writeln('Значение d = ',d,'.');
writeln('Значение c = ',c,'.');
end.
Паскаль. d = 7. c = -6.
Опять частотный словарь, Эту задачу уже решали. Решение на Питоне. На скрине и в текстовом файле.
Блок-схема по ГОСТ 19.701-90 (ISO 5807-85) - во вложении