Определить, за сколько дней может похудеть спортсмен со 100 до 80 кг

@damir2407 · Регистрация: 01.10.2015

Author24 — интернет-сервис помощи студентам

Решите с помощью цикла while или же repeat, но не как не for. Спасибо!
За сколько дней может похудеть спортсмен со 100 до 80 кг, если в день он может сбрасывать 1% своего веса от нормы предыдущего дня?

@APALoff · 21.12.2015, 17:33

Pascal

n:=100; k:=0;
While n>80 do
Begin
  n:=n-n/100;
  Inc(k);
end;
Writeln(k);

@damir2407 · 21.12.2015, 18:06 **[ТС]**

Inc(k); Выводит ошибку: Нет перегруженной подпрограммы с такими типами параметров
Как исправить?Стоит тип Real. И вообще, что значит inc(k), можно ли заменить?Мы такое не проходили)

@ZX Spectrum-128 · 21.12.2015, 18:53

Pascal

var
  k: integer;
  n: real;
 
begin
  n := 100; k := 0;
  while n > 80 do
  begin
    n := n - n / 100;
    Inc(k);
  end;
  Writeln(k);
end.

Добавлено через 48 секунд
inc(k) = k:=k+1

@capricornus CF · 21.12.2015, 18:53

inc это увеличение на единицу, замените на k:=k+1

Pascal

var
n:real;
begin
 n:=100;
 var k:=0;
While n>80 do
Begin
  n:=n-n / 100;
  k:=k+1;
 end;
Writeln(k);
end.

@damir2407 0 / 0 / 0 Регистрация: 01.10.2015 Сообщений: 30
		1
	Определить, за сколько дней может похудеть спортсмен со 100 до 80 кг 21.12.2015, 16:05. Показов 3537. Ответов 4 Метки нет (Все метки) Решите с помощью цикла while или же repeat, но не как не for. Спасибо! За сколько дней может похудеть спортсмен со 100 до 80 кг, если в день он может сбрасывать 1% своего веса от нормы предыдущего дня? 0

@damir2407 0 / 0 / 0 Регистрация: 01.10.2015 Сообщений: 30
	21.12.2015, 18:06 [ТС]	3
	Inc(k); Выводит ошибку: Нет перегруженной подпрограммы с такими типами параметров Как исправить?Стоит тип Real. И вообще, что значит inc(k), можно ли заменить?Мы такое не проходили) 0

	21.12.2015, 18:53

Определить, за сколько дней может похудеть спортсмен со 100 до 80 кг

Решение