Если ты правильно переписал, то 20.
y:= 10;
x: = 10 + y;
то есть
x: = 10 + 10 = 20;
y:= y - 1;
то есть
y: = 10 - 1 = 9;
но это никак не влияет на x, т.к. эта операция идет уже после выполнения вычисления переменной!
Const n=10;
Var b,c;
a:array [1..n] of integer;
Begin
b:=0; c:=0;
For i:= 1 to n do
If a[i]>0 then b:=a[i]+b
else
inc(c);
Writeln(b,' ', c);
end.
program test;
var a, b: integer;
begin
write('Enter A: ');
readln(a);
write('Enter B: ');
readln(b);
writeln('Area = ', a*b);
readln;
end.
1 Относительные ссылки корректируются в зависимости от нового положения формулы.<span />
Var
k,fk, k20, count: integer;
function F(x: integer): integer;
begin
if x < 3 then
F := 1
else F := F(x - 1) + F(x - 2);
end;
begin
k20:=F(20);
writeln(k20);
count:=-1; {k=20 мы ж вроде должны вычесть}
for k := 3 to 50 do begin
fk:=F(k);
if fk=k20 then count:=count+1;
write(fk,' ');
end;
writeln(count);
end.
функция работает очень медленно потому что это рикурсия. Функция создает последовательность числ фибоначи которые вообщ то не повторяются потому что последовательность возрастающая. Повторения вообщем возможны изза того что integer это не безконечная последовательность, а кольцо, но дождаться результатов при таким образом построенной функции просто нереально