Опубликовано 6 лет назад по предмету Информатика от molekula

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

Ответ

Ответ дан roperd

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

Самые новые вопросы

Математика - 5 лет назад

Решите уравнения: а) 15 4 ∕19 + x + 3 17∕19 = 21 2∕19; б) 6,7x - 5,21 = 9,54

Информатика - 5 лет назад

Помогите решить задачи на паскаль.1) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти произведение всех элементов массива.2) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти сумму четных элементов массива.3) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива.4) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива среди элементов, кратных 3.

География - 5 лет назад

Почему япония - лидер по выплавке стали?

Математика - 5 лет назад

Чему равно: 1*(умножить)х? 0*х?

Русский язык - 5 лет назад

В каком из предложений пропущена одна (только одна!) запятая?1.она снова умолкла, точно некий внутренний голос приказал ей замолчать и посмотрела в зал. 2.и он понял: вот что неожиданно пришло к нему, и теперь останется с ним, и уже никогда его не покинет. 3.и оба мы немножко удовлетворим свое любопытство.4.впрочем, он и сам только еле передвигал ноги, а тело его совсем застыло и было холодное, как камень. 5.по небу потянулись облака, и луна померкла.