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.

0 0

4 года назад

Задача на циклы с предусловием в паскалеДано 2 произвольных чилсла X.Y найти среднее арифметическое факториалов для этих чисел П

CASIO321 [1]

program test;
var x: integer;
var y: integer;
var factSred : real;

Function fact(arg:integer) : integer;
var i: integer;
var r: integer;
Begin
i:=1;
r:=1;
while i<=arg do
begin
r := r*i;
i := i + 1;
end;
fact := r;
End;

begin

readln(x);
readln(y);
factSred:=(fact(x)+fact(y))/2;
writeln(factSred:0:2);

end.

0 0

4 года назад

Укажи минимальный объём памяти (в битах), достаточный для хранения любого растрового изображения размером 54×54| пикселя, если и

Kristina005i [14]

Если в палитре 65536 цветов, то для хранения 1 пикселя необходимо log(2)65536=16 бит. Для хранения изображения - 54*54*16=46656 бит

0 0

4 года назад