===== PascalABC.NET =====
begin
ReadArrInteger(3).Select(p -> p.IsEven ? p * p : p).Println(',')
end.
Замечание: В Паскаль данные разделяются пробелами, или переводами строки (клавиша Enter), поэтому вводить черз запятую не выйдет )))
109(10)= 11001(3)
109:3= 36, ост 1
36:3=12 ост 0
12:3=4 ост 0
4:3=1 ост 1
И потом надо записывать остатки в обратном порядке , то есть 1 1 0 0 1= 11001. И так из десятичной можно перевести троичную: 1) делить на 3 пока не останется число меньше 3, 2) записать остатки в обратном порядке
#include <iostream>
using namespace std;
int main()
{
int n, a, c;
cout << "Количество чисел: ";
cin >> n;
c = 0;
for (int i = 0; i < n; i++) {
cout << endl << ">>> ";
cin >> a;
if (a % 9 == 0) c++;
}
cout << endl << "Ответ: " << c << endl;
return 0;
}
В состав этого пакета входят:
– текстовый редактор Microsoft Word,
– электронные таблицы Microsoft Excel,
– система управления базами данных Microsoft Access,
– программа подготовки компьютерных презентаций Power Point,
– программа – планировщик рабочего времени (блокнот) Outlook,
===== PascalABC.NET =====
-1-
begin
var a := new integer[9];
for var i := 0 to 2 do
begin
a[3 * i] := ReadInteger('Введи элемент ' + (3 * i + 1).ToString);
a[3 * i + 1] := 6 * i + 4;
a[3 * i + 2] := Random(0, 9)
end;
a.Println
end.
-2-
begin
var a := ArrRandom(15, -99, 99);
a.Println;
var b := a.Select(p -> p * p).ToArray;
b.Println;
Println('Разность', a.Max - b.Min)
end.