Некая студентка решила поучаствовать в кастинге - вопрос №174306 от GenGis 20.04.2022 15:16

Question

Информатика: Некая студентка решила поучаствовать в кастинге конкурса «мисс очарование». для этого она решила сесть на специальную диету. начальный ее вес составляет n0 кг. через неделю ее вес стал равен n1 кг, а еще через неделюn2 кг. определить по сколько % веса каждую неделю теряла студента, сидя на диете.нужно написать прогу в pascal abc/

GenGis · Answer

Вот собственно программка, все, что нужно, прокомментированно, писалось на 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.