Question

Нужно решить по информатике. на каждый день рождения мне дарят деньги.в первый год мне подарили 1$. в каждый следующий мне удваивали подарок и прибавляли столько $, сколько лет исполнилось. к какому дню рождения подарок превысит 100$? 1) написать программу для paskal 2) составить блок схему 3) составить трассировочную таблицу

Answer 1

Program chik;
var w,q,s,n,i,h:integer;
begin
q:=1;
h:=0;
while q<=100 do
beginq:=(q*2)+w;
w:=w+1;
h:=h+1;
writeln('äåíüãè ',q);
end;
writeln('денег ',q,' лет ',h);
end.

Answer 2

Program chik;
var w,q,s,n,i,h:longint;
begin
s:=1;
q:=1;
h:=1;
w:=1;
while w<100 do
begin
q:=q+1;
h:=h+1;
s:=s*2+q;
w:=w+s;
writeln(w);
end;
writeln(w,' ',h);
end.