Вправо пока свободно
вниз
вправо 2 раз
вверх
вверх пока слева стена
нц пока снизу стена
вправо
закрасить
кц
В русском варианте диалога найти и заменить это выглядит так:
Найти: берёза
Заменить на: стол
То есть, будет найдено слово берёза, и заменено на слово стол.
Правильный ответ №3 (слово «берёза» заменится на слово «стол»).
Procedure s(n,ans:integer);
begin
if n<>0 then begin
ans:=ans+n+n-1;
s(n-1,ans);
end
else
writeln(ans);
end;
Вот пример всем программыprogram znanijatop;const null = 0;
procedure s(n,ans:integer);
begin
if n<>0 then begin
ans:=ans+n+n-1;
s(n-1,ans);
end
else
writeln(ans);
end;
var n:integer;
begin
writeln('vvedite n');
readln(n);
s(n,null);
end.
3*10в степени 2+2*10 в ст.1+8*10 в ст.0
2*10 в ст3+3*10 в ст.2+4*10 в ст.1 +6*10 в ст.0
9*10 в ст. 3+ 8*10в ст.2+7*10 в ст.1+2* 10 в ст.0+1*10 в ст. -1+2*10 в ст.-2+3*10 в ст.-3
1*10 в ст.4+0*10 в ст.3+0*10 вст.2+1 *10 в ст.1+1*10 в ст. 0