SOS-SOS!!!!! Решите пожалуйста!!!!! 11 класс - нужны хорошие оценки. Первая решена. Нужна 2.

Спасибо. Очень помогли)

все работает. ура

Как то так// PascalABC.NET 3.3, сборка 1573 от 04.11.2017// Внимание! Если программа не работает, обновите версию!beginvar i:integer;var ur1:=ReadReal('ur1 =');var ur2:=ReadReal('ur2 =');var p:=ReadReal('p = ');for i:= 1 to 7 dobeginWriteln(i,' День - ',ur1 - ur1*p/100:0:0);ur1:=ur1 - ur1*p/100;end;end.