Var
a,b:real;
i:integer;
begin
i:=0;
readln(a,b);
while b<a do
begin
a:=a*1.15;
a:=a-b;
i:=i+1;
end;
<span>writeln('План можно выдерживать', i, ' лет' )</span>;
end.

0 0

4 года назад

Цветное растровое графическое изображение, палитра которого включает в себя 256 цветов, имеет размер 100Х100 точек (пикселей). К

Mixail04-1982 [27]

По формуле Шеннона находим глубину цвета, она равна 8 бит. Объём V = 100*100*8=80000 бит =10000 байт
Ответ: 10000 байт

0 0

4 года назад

Вычислить S=1/33+1/53+1/73+..+1/(2n+1)3 в Паскале

Николай Левченко

Var
S, tmp: real;
n, i: integer;

begin
      write('Введите n:');
      readln(n);
      for i := 1 to n do
      begin
        tmp := 1 / ((2 * i + 1) * 3);
        S := S + tmp;
      end;
      writeln(S:8:10);
      readln;
end.

0 0

4 года назад

Дано n целых чисел. Найти сколько по модулю не превосходят 50

Igrik

Int n = 100;
List<Integer> ints = new ArrayList<Integer>();
for (int i = 0; i < n; i++) {
if (Math.abs(i) < 50) {
ints.add(i);
}
}
System.out.println(ints.size());
System.out.println(ints.toString());

0 0

4 года назад