Uses graphabc;
begin
window.IsFixedSize := true;
window.Height := 600;
window.Width := 800;
pen.Color := clred;
lockdrawing;
for var i := 0 to 750 do
begin
window.Clear;
DrawRectangle(i, 0, 50 + i, 50);
redraw;
end;
end.
1. Список имен файлов
2. Самый верхний корневой каталог в иерархической файловой системе
Var
i,n,a,b,c:int64;
Begin
a:=0; b:=1;
Write('Введите число n: '); Readln(n);
Write('Число фибоначи под номером ',n,': ');
Case n of
0:write('0');
1:write('1') else Begin
for i := 2 to n do Begin
c:=a+b;
a:=b;
b:=c;
End;
write(c);
End;
End;
End.
a:=x+y/x+1-xy-12/34+x вопрос в том, в чем собственно проблема.? просто берете переменную и присваеваете ей значение .уравнение будет точно такоеже.
Число 26
число десятков = 2
число единиц = 6
сумма цифр =8
произведение цифр =12