1. Информатика
  2. Знайти послідовність чисел якщо

Знайти послідовність чисел якщо 1 число = 3 а кожне наступне попередньо помножене на 3 останнє число не перевищує 30

chastener40 chastener40    1   27.08.2019 15:50    1

Ответы
GGG123366699 GGG123366699  05.10.2020 23:00
Код Pascal:
Var A:integer;
Begin
A:=1;
While A<30 do
   Begin
   Write(A,' ');
   A:=A*3;
   End;
End.

Результат работы программы:
1 3 9 27
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
lampec1 lampec1  20.07.2019 02:40
Исполнитель вычислитель может хранить в своей памяти только одно число и выполнять только две команды, которым присвоены номера: 1. умножь число на 3 2. увеличь число...
YouSister YouSister  20.07.2019 02:40
Вмассиве из 20 целых чисел найти наименьший элемент и поменять местами первым элементом. с объяснениями!...
iNNA9078 iNNA9078  30.04.2020 17:20
Построить таблицу истинности для заданного логического выражения...
helenkarchevskp08ll5 helenkarchevskp08ll5  30.04.2020 17:20
Программирование на VBA. Организация разветвляющегося вычислительного процесса. Составить программу вычисления корней квадратного уравнения х1=?, х2=?....
nikitos7200 nikitos7200  30.04.2020 17:19
1. а) 1 101 100 000(2) + 10 110 110(2); б) 101 110 111(2) + 1 000 100 001(2);в) 1 001 000 111,01(2) + 100 001 101,101(2) ; г) 271,34(8) + 1 566,2(8); д) 65,2(16) +...
Usimys Usimys  30.04.2020 17:19
Як людина кодує звуки своєї природної мови? Виберіть один з 4 варіантів відповіді: 1) Запахами 2) Літерами і жестами 3) Настроєм 4) Рухами Завдання #11 Запитання: Що...
бахтылбек бахтылбек  25.06.2019 09:20
Определите , что будет напечатано в результате выполнения программы , написаной ниже на разных языках программирования: var n, s : integer; begin n: =14; s: =0; write...
nut56 nut56  25.06.2019 09:20
Какое значение будет иметь переменная а после выполнения рагмента программы: а: =1; for n: = 1 to 4 do а: =а+2-n; if a 0 then a: =a+10 writeln (a)...
И1111111111111111 И1111111111111111  12.04.2020 00:47
Как называются слова, которые используются как команды в языке программирования? Служебные слова, переменные, приказы, процедура...
lora1981 lora1981  28.05.2019 12:00
Написать в паскаль abc 1) напишите программу, перемножающую целые числа без использования операции * . например, при умножении целых чисел n*m число m надо сложить...

Популярные вопросы