Сформулируйте и выведите на экран массив из девяти элементов, каждые три последовательных элемента которого составлен по следующему правилу: первый равен 500; второй равен целой части квадратного корня из предыдущего элемента; ...
Сформулируйте и выведите на экран массив из девяти элементов, каждые три последовательных элемента которого составлен по следующему правилу: первый равен 500; второй равен целой части квадратного корня из предыдущего элемента; третий равен целой части от деления текущего индекса на три части (если она равна нулю,то соответствующий элемент массива делать равным 1)
Гость
Ответ(ы) на вопрос:
Гостьuses crt;
var
a:array [1..9] of integer;
i,c,m,n:integer;
b:real;
begin
clrscr;
randomize();
c:=1;
for i:=1 to 9 do
begin
if i=c then
begin
a[i]:=500;
c:=c+3;
end
else
begin
if i mod 3=0 then a[i]:=trunc(i/3) else a[i]:=trunc(sqrt(a[i-1]));
end;
write(a[i],' ');
end;
readln();
end.
Не нашли ответ?
Похожие вопросы