Сформулируйте и выведите на экран массив из девяти элементов, каждые три последовательных элемента которого составлен по следующему правилу: первый равен 500; второй равен целой части квадратного корня из
предыдущего элемента; третий равен целой части от деления текущего индекса на три части (если она равна нулю,то соответствующий элемент массива делать равным 1)
danil3331116
1
10.03.2019 00:00
0
Другие вопросы по теме Информатика
fedotovairochkp0cujm
21.12.2020 11:55
timur77553344
21.12.2020 11:54
Ээн
21.12.2020 11:54
SmartJager
22.05.2021 21:08
nastic2k2
22.05.2021 21:07
ВіКтОрІя0901
22.05.2021 21:07
valikotura
22.05.2021 21:05
galeevaazaliyaqwert
22.05.2021 20:59
Азрет2002
22.05.2021 20:58
Популярные вопросы
- 3. Напишите наибольшее число x, для которого истинно высказывание: (x 42) И НЕ (в...
1 - Абай жолы романындағы образдарға характеристика...
3 - II. Подберите правильно имя прилагательное.1. The weather is bad. I’m bored / boring.2....
3 - Казахский плачу рэлстоуном из маинкрафта ...
3 - Тело массой 9 кг роняют вертикально вниз со скоростью 5 м/с. Сопротивлениевоздуха...
1 - Подобрать материал о населении и хозяйстве Свердловской области. ответить на во...
2 - 3. Чем необычно дно океанов ...
2 - Определите направление силы, действующей на сторону АВ рамки с током (рисунок 36),...
3 - Реши систему уравнений.5 sin x+2 cos y = 24 sin x+5 cos y = 3...
2 - Одағайға тән ерекшелікті тап. А) Басқа сөздермен байланысқа түспейді. В) Сөз бен...
3
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.