Вот собственно программка, все, что нужно, прокомментированно, писалось на 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.
затем идет цикл а именно: нужно повторить какоето действие с 1 до 10 раз(тоесть 10 раз) Это действие включает в себя условие если Dat[k] <m (Dat[k] где к это каждый шаг цикла: если к=1 то Dat[k]=Dat[1] а это равно 7 и так далее, к=2 к=3 до 10)так вот каждый раз подставляется новое число и сравнивается с m (m тоже число в начале которое равно 10), вот шаг
1) при k=1, если 7 меньше 10 то m теперь будет равно 7
2)при k=2 (тоесть Dat[2]) если 9 меньше 7, не меньше а значит m остаётся без изменений m=7
3)при k=3 (тоесть Dat[3]) если 10 меньше 7, не меньше а значит m остаётся без изменений m=7
4)при k=4 (тоесть Dat[4]) если 5 меньше 7, то m=5
5)при k=5 (тоесть Dat[5]) если 6 меньше 5, не меньше а значит m остаётся без изменений m=5
6)при k=6 (тоесть Dat[6]) если 7 меньше 5, не меньше а значит m остаётся без изменений m=5
7)при k=7 (тоесть Dat[7]) если 9 меньше 5, не меньше а значит m остаётся без изменений m=5
8)при k=8 (тоесть Dat[8]) если 8 меньше 5, не меньше а значит m остаётся без изменений m=5
9)при k=9 (тоесть Dat[9]) если 6 меньше 5, не меньше а значит m остаётся без изменений m=5
10)при k=10 (тоесть Dat[10]) если 9 меньше 5, не меньше а значит m остаётся без изменений m=5
В конце идет вывод числа переменной m, которая равна 5, а значит будет выведено 5
Вот собственно программка, все, что нужно, прокомментированно, писалось на 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.
ну смотри переменная m в начале равна 10
затем идет цикл а именно: нужно повторить какоето действие с 1 до 10 раз(тоесть 10 раз) Это действие включает в себя условие если Dat[k] <m (Dat[k] где к это каждый шаг цикла: если к=1 то Dat[k]=Dat[1] а это равно 7 и так далее, к=2 к=3 до 10)так вот каждый раз подставляется новое число и сравнивается с m (m тоже число в начале которое равно 10), вот шаг
1) при k=1, если 7 меньше 10 то m теперь будет равно 7
2)при k=2 (тоесть Dat[2]) если 9 меньше 7, не меньше а значит m остаётся без изменений m=7
3)при k=3 (тоесть Dat[3]) если 10 меньше 7, не меньше а значит m остаётся без изменений m=7
4)при k=4 (тоесть Dat[4]) если 5 меньше 7, то m=5
5)при k=5 (тоесть Dat[5]) если 6 меньше 5, не меньше а значит m остаётся без изменений m=5
6)при k=6 (тоесть Dat[6]) если 7 меньше 5, не меньше а значит m остаётся без изменений m=5
7)при k=7 (тоесть Dat[7]) если 9 меньше 5, не меньше а значит m остаётся без изменений m=5
8)при k=8 (тоесть Dat[8]) если 8 меньше 5, не меньше а значит m остаётся без изменений m=5
9)при k=9 (тоесть Dat[9]) если 6 меньше 5, не меньше а значит m остаётся без изменений m=5
10)при k=10 (тоесть Dat[10]) если 9 меньше 5, не меньше а значит m остаётся без изменений m=5
В конце идет вывод числа переменной m, которая равна 5, а значит будет выведено 5