Напечатать на экране числа 2187,729,243,...,3.

Знания

Информатика

1 ответ:

nana2134 года назад

0 0

Var a:integer;
begin
a:=2187;
while a>1 do
begin
write(a,' ');
a:=a div 3;
end;
end.

Результат:
2187 729 243 81 27 9 3

Читайте также

Что такое кодировочные таблицы? какие бывают, виды кодировок.

Яна Суслопарова

Есть 2 популярных вида кодировки: ASCII и Unicode. Кодировочные таблицы нужны для декодировки или кодировки сообщений. Например цифра "3" в таблице юникод кодируется как "<span>0033</span>".

0 0

3 года назад

дан одномерный массив целых чисел.найти и вывести на экран среднее арифметическое элементов этого массива равных своим индексам

Елена Березнякова [58]

var a:array[1..10] of integer;
i,k:integer; s:real;
begin
randomize;
writeln('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(11);
write(a[i],' ');
if a[i] = i then begin s:=s+a[i]; inc(k) end
end;
writeln;
write('S = ',s/k)
end.