Способ довольно простой, только надо задать mas[0], пусть оно будет 0
mas[1] = mas[1] + mas[0]*3 = mas[1] = 3
mas[2] = mas[2] + mas[1]*3 = mas[2] + 9 = 14 -> mas[2] = 14-9 = 5
и тд
#Ruby22
mas = [0, 3, 5, 5, 1, 2]
for i in 1..5
mas[i] += mas[i - 1] * 3
end
p mas
Var
c:char;
k:integer;
FlagBlank:boolean;
begin
Read(c);
case c of
'К','к':begin k:=1; FlagBlank:=True end;
' ':begin k:=0; FlagBlank:=False end;
'.':k:=0;
else begin k:=0; FlagBlank:=True end
end;
while c<>'.' do begin
while (not FlagBlank) and (c<>'.') do
begin Read(c); FlagBlank:=(c=' ') end;
while Flagblank and (c<>'.') do
begin Read(c); FlagBlank:=(c=' ') end;
if UpCase(c)='К' then Inc(k);
end;
Writeln(k);
end.
В эфиопии ученые обнаружили человека которому 160 тыс.лет. Они полагают,что примерно 200 лет назад появился человек разумный.
Var
a: array[1..7] of string = ('Понедельник', 'Вторник', 'Среда', 'Четверг', 'Пятница', 'Суббота', 'Воскресенье');
av: real; i, t: integer;
begin
writeln('Введите температуру воздуха за неделю.');
for i := 1 to 7 do
begin
write(a[i], ' -> '); readln(t); av := av + t;
end;
av := av / 7;
writeln('Средняя температура за неделю: ', av:0:2, ' град.');
readln;
end.
var i, k: integer;
a: array [1..10] of integer;
begin writeln('Введите 10 элементов: ');
for k := 1 to 10 do readln(a[k]);
for k := 1 to 10 do
if (a[k] > a[1]) and (a[k] < a[10]) then i := k;
writeln('Порядковый номер последнего из элементов, удовлетворяющих А1<Ak<A10: ', i)
end.
