1кадр это 256кб
1сек=24кадра=6144кб
1000кб=1мб
2мин=120сек
6144 умножить на 120=737280кб=737.28мб
Var a,b,c,d,nod,k:integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
c:=a; d:=b;
while (c>0)and(d>0) do
if c>d then c:=c mod d else d:=d mod c;
nod:=c+d;
k:=(a div nod)*(b div nod);
writeln(k,' квадратов размером ',nod,'x',nod);
end.
Пример:
a = 6
b = 15
10 квадратов размером 3x3
Ответ:
Объяснение:
var
x, y:real;
begin
//x:=5;
readln(x);
if (x < -1) then y:=x+2;
if ((x >= -1) and (x <= 2)) then y:=x*x;
if (x > 2) then y:=6-x;
writeln(y);
end.
Это ряд цифр в информатике. 0, 1, 2, 3, 4, 5, 6, 7, 8, 9.