Когда оля спросила у дедушки сколько ему лет дед ответил если проживу еще половину того что я прожил да еще один год то мне будет сто лет. сколько лет оленому дедушке?

Оленому дедушке 66 лет

Складіть порівняльну характеристику людей, якими їх побачив маленький принц із однойменного твору А. де Сент - Екзюпері, та людей нинішнього покоління, якими їх бачите ви.Складіть порівняльну характеристику людей, якими їх побачив маленький принц із однойменного твору А. де Сент - Екзюпері, та людей нинішнього покоління, якими їх бачите ви.Складіть порівняльну характеристику людей, якими їх побачив маленький принц із однойменного твору А. де Сент - Екзюпері, та людей нинішнього покоління, якими їх бачите ви.Складіть порівняльну характеристику людей, якими їх побачив маленький принц із однойменного твору А. де Сент - Екзюпері, та людей нинішнього покоління, якими їх бачите ви.Складіть порівняльну характеристику людей, якими їх побачив маленький принц із однойменного твору А. де Сент - Екзюпері, та людей нинішнього покоління, якими їх бачите ви.Складіть порівняльну характеристику людей, якими їх побачив маленький принц із однойменного твору А. де Сент - Екзюпері, та людей нинішнього покоління, якими їх бачите ви.

Складіть порівняльну характеристику людей, якими їх побачив маленький принц із однойменного твору А. де Сент - Екзюпері, та людей нинішнього покоління, якими їх бачите ви.

Объяснение:

Складіть порівняльну характеристику людей, якими їх побачив маленький принц із однойменного твору А. де Сент - Екзюпері, та людей нинішнього покоління, якими їх бачите ви.Складіть порівняльну характеристику людей, якими їх побачив маленький принц із однойменного твору А. де Сент - Екзюпері, та людей нинішнього покоління, якими їх бачите ви.Складіть порівняльну характеристику людей, якими їх побачив маленький принц із однойменного твору А. де Сент - Екзюпері, та людей нинішнього покоління, якими їх бачите ви.

1)

var a,b,x,y:longint;

begin

write("Vvedite nachalo i konec otrezka: ");

read(a,b);

write("Vvedite x: ");

read(x);

y:=sqr(x)*x;

if (y>a)and(y<b) then write("Na dannom otrezke znachenie funkcii ravno ",y) else write("Na dannom otrezke net reshenii");

readln

end.

2)

var c,i:byte;

begin

for i:=49 to 215 do

if (i mod 4=0) then c:=c+1;

write("Kolichestvo chisel, kratnyh 4 na zadannom promezhutke ravno ",c);

readln

end.

3)

var i:integer;

p:longint;

for i:=1000 to 9999 do

if (i mod 10=3) then p:=p*i;

write("Proizvedenie chetyrehznachnyh chisel, okanchivaushihsya na 3 ravno ",p);

readln

end.

4)

var i:byte;

c:integer;

begin

for i:=221 to 778 do

if ((i mod 10)=(i div 100)) then c:=c+1;

write("Kolichestvo chisel ravno ",c);

readln

end.

5)

var i:longint;

c:integer;

begin

for i:=10000 to 99999 do

if ((i mod 10)=(i div 10000))and(((i mod 100)div 10)=((i div 1000)mod 10)) then c:=c+1;

write("Kolichestvo chisel ravno ",c);

readln

end.