• 1. Составьте программу к задаче: «На яблоне было х яблок. В первый день с яблони упало а яблок. Каждый следующий день опадало в 2 раза больше яблок, чем в предыдущий. Сколько яблок останется через k дней?».

Ответы 1

  • паскаль:#################################################################varx, k, a, i: integer;beginwriteln('Введите количество яблок');readln(x);writeln('Введите количество дней');readln(k);writeln('Введите количество яблок, которое упало в 1 день');readln(a);for i:=1 to k do beginx:=x-a;a:=a*2;end;writeln(inttostr(x));sleep(3000);end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years