Question

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

Answer 1

Как то так
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
var i:integer;
var ur1:=ReadReal('ur1 =');
var ur2:=ReadReal('ur2 =');
var p:=ReadReal('p = ');
for i:= 1 to 7 do
begin
Writeln(i,' День - ',ur1 - ur1*p/100:0:0);
ur1:=ur1 - ur1*p/100;
end;
end.

Answer 2

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

Answer 3

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