Сделайте, пожалуйста мне две задачки! Зарание спасибо:)

[BeaU]

1)Имеется фрагмент программы в виде оператора цикла с параметром, обеспечивающий вывод на экран "столбиком" всех целых чисел от 100 до 80. Оформить этот фрагмент в виде: оператора цикла с постусловием.

2)Известны оценки по информатике каждого из 20 учеников класса. В начале списка перечислены все пятерки, затем все остальные оценки. Сколько учеников имеют по информатикеоценку "5"? Условный оператор не использовать. Известно, что пятерки имеют не все ученики класса.

[Oldy]

1) FOR i := 100 DOWNTO 80
2) WHILE оценка = '5', но это явно не про Вас.

[DM_bite]

1

program xdd;
var i: integer;
begin
i:= 101;
repeat i:= i-1;
WriteLn(i);
until i<81;
ReadLn;
end.

1) FOR i := 100 DOWNTO 80

В условии сказано же:

Оформить этот фрагмент в виде: оператора цикла с постусловием.

2

program xd;
var marks,k: integer;
begin
k:=0;
while marks=5 do
begin
inc(k);
end;
WriteLn(k);
ReadLn;
end.

[BeaU]

Спасибо за решение!!!!=)))