Работа в pascal: мышке давали x грамм сыра, при этом количество сыра увеличивалось каждый день на 10%. сколько съела мышка на n день? сколько дали сыра на n день?

ответ:

объяснение:

var

  i, n: integer;

  x: real;

  sum, count: real;

begin

  writeln('input x = ');

  readln(x);

  writeln('input n = ');

  readln(n);

  count: =x;

  sum: =0;

  for i: =1 to n do begin

    count: =count + (count * 0.1);

    sum: =sum + count;

  end;

  writeln('vsego sela = ', sum: 3: 3);

  writeln('vsego dali = ', count: 3: 3);

  readln;

end.

Program metka; \\ даем имя метке  label m1; \\ даем имя переменной хvar x: shortint; \\ начало программыbegin \\ выводим текст с просьбой ввода числаm1: writeln ('введите x> 100'); \\ запрос на ввод числаreadln(x); \\ если введенное число < =100 то идем на м1if x< =100 then goto m1 \\ конец программыend. два недочета 1) нет точки с запятой после writeln ('x> 100')2) неверное условие - должно быть < =, т.к. при х=100 условие х> 100 не должно выполняться.3) желательно попросить ввести х> 100 - слово введите - не лишнее

Дату сам поставь. пн чтение - 2 часа;   просмотр телепередач - 1  час;   компьютерные игры - 2 часов;   активные игры - 0;   общение, прогулки   - 1 вт  чтение - 3 часа;   просмотр телепередач - 0 часов;   компьютерные игры - 2 часов;   активные игры - 1;   общение, прогулки - 2 ср  чтение  -   2 часа;   просмотр телепередач - 1 час;   компьютерные игры - 0 часов;   активные игры - 0;   общение, прогулки -   1  чт  чтение -   1 час;   просмотр телепередач - 1 час;   компьютерные игры - 1 час  ;   активные игры - 0;   общение, прогулки -   2    пт  чтение - 1 час;   просмотр телепередач - 2 часа;   компьютерные игры - 1 час;   активные игры - 1;   общение, прогулки - 1  суб  чтение - 0 часов;   просмотр телепередач - 2 часов;   компьютерные игры - 2 часов;     активные игры - 1;   общение, прогулки - 3 вс  чтение -   2 часа;   просмотр телепередач - 1 час;   компьютерные игры -1 час;   активные игры  - 1; общение, прогулки - 3