Работа в Pascal:
Мышке давали x грамм сыра, при этом количество сыра увеличивалось каждый день на 10%.
Сколько съела мышка на n день?
Сколько дали сыра на n день?
Мышке давали x грамм сыра, при этом количество сыра увеличивалось каждый день на 10%.
Сколько съела мышка на n день?
Сколько дали сыра на n день?
More Questions From This User See All
Answers & Comments
Ответ:
Объяснение:
var
i, n:integer;
x:real;
sum, count:real;
begin
writeln('Input x = ');
readln(x);
writeln('Input n = ');
readln(n);
count:=x;
sum:=0;
for i:=1 to n do begin
count:=count + (count * 0.1);
sum:=sum + count;
end;
writeln('Vsego sela = ', sum:3:3);
writeln('Vsego dali = ', count:3:3);
readln;
end.