Царевна лягушка съедает ежедневно на 20

Царевна лягушка съедает ежедневно на 20

Царевна – лягушка съедает ежедневно на 20 % комаров больше, чем в предыдущий день и еще 3 комара. Написать программу определяющую, сколько комаров она съест в 20-й день, если в первый день она съела 8 комаров.

CLS
S=8
For I=1 To 19
S= s+s*0.2+3
Next I
?” на”; I “ день лягушка съест “; s “комаров”
End

Царевна лягушка съедает ежедневно на 20% комаров больше ,чем в предыдущий день, и еще два комара. Написать программу ,определяющую,сколько комаров она съест на 10й день ,если в первый день было съедено 10 комаров

Var
A,S:real;
i:integer;
Begin
A:=10;
S:=2;
For i:= 1 to 10 do
Begin
S:=S+A;
A:=A*1.2;
End;
WriteLn(Количество съеденых комаров на 10 день: ,S:0:0);
End.

Var
A,S:real;
i:integer;
Begin
A:=10;
S:=2;
For i:= 1 to 10 do
Begin
S:=S+A;
A:=A*1.2;
End;
WriteLn(Количество съеденых комаров на 10 день: ,S:0:0);
End.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.

Читайте также:  Как сохранить почту outlook на компьютере
Ссылка на основную публикацию
Фото на зеленом фоне хромакей
Зеленый фон или «хромакей» применяют при съемках для последующей его замены на любой другой. Хромакей может быть и другого цвета,...
Файловая система для операционной системы windows
Вы знаете, что Windows Phone использует NTFS? Почему большинство карт памяти и почти все USB-накопители по-прежнему используют старый-добрый FAT? Почему...
Файлы в карантине что с ними делать
содержит все нейтрализованные вредоносные программы в корзине в течение определенного периода времени до того момента, как применит к ним соответствующие...
Фото на скайп для пацанов
Крутые фотографии пацанов на аву: фото без лица, в маске анонима, крутые пацаны с битами и с пистолетами. Крутые фото...
Adblock detector