Mirage
4 год назад
SOS-SOS!!!!! Пожалуйста посчитайте пожалуйста!!!!! 11 класс - нужны хорошие оценки. Первая решена. Нужна 2.
ОТВЕТЫ
Pahom
Oct 24, 2020
Как то так
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.
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.
829
Смежные вопросы: