Некая студентка решила поучаствовать в кастинге конкурса «Мисс Очарование». Для этого она...

Question

Некая студентка решила поучаствовать в кастинге конкурса «Мисс Очарование». Для этого она решила сесть на специальную диету. Начальный ее вес составляет N0 кг. Через неделю ее вес стал равен N1 кг, а еще через неделю N2 кг. Определить по сколько % веса каждую неделю теряла студента, сидя на диете.Нужно написать прогу в Pascal abc/

Answer 1

Вот собственно программка, все, что нужно, прокомментированно, писалось на Turbo Pascal, от Pascal ABC данная версия не значительно отличается.

Program Tolstushka;
Uses
Crt;
Var
N0, N1, N2, X1, X2, X3: byte;
begin
Clrscr;
TextColor(White);
TextBackground(Black);
readln(N0, N1, N2);
X1 := (N1 * 100) div N0; {Потеряла веса (в процентах) от первоначального в первую неделю}
X2 := (N2 * 100) div N0; {Потеряла веса (в процентах) от первоначального во вторую неделю}
X3 := (N2 * 100) div N1; {Потеряла веса (в процентах) от веса, потерянного в первую неделю}
WriteLn;
WriteLn('Первая неделя :' + ' ', X1 , 'Вторая неделя' + ' ', X2, 'Вторая неделя в сравнении с первой' + ' ', X3);
ReadKey;
end.