ABC PASCAL Курочка Ряба знесла яєчко, а Мишка розбила його. Після цього Ряба знесла ** K...

Question

ABC PASCAL
Курочка Ряба знесла яєчко, а Мишка розбила його. Після цього Ряба знесла на K яєчок більше, але Мишка знову їх розбила. Ряба знесла знову на K яєчок більше, ніж в попередній раз, але безсовісна Мишка розтрощила і ці яєчка. Так продовжувалося п'ять разів, поки Ряба не здалася. Із скількох яєць Дід і Баба змогли б зробити собі яєчню?

Answer 1

Var a,k:integer;beginwriteln ('На сколько яиц больше курочка снесла во второй раз, k = ');readln(k);a:=1+(1+k)+(1+k+k)+(1+k+k+k)+(1+k+k+k+k);writeln('Дед и баба могли сделать яичницу из ',a,' яиц');end.

Comments

var a,k:integer;
begin
writeln ('На сколько яиц больше курочка снесла во второй раз, k = ');
readln(k);
a:=1+(1+k)+(1+k+k)+(1+k+k+k)+(1+k+k+k+k);
writeln('Дед и баба могли сделать яичницу из ',a,' яиц');
end.

---

вот тут удобней