На c++
#include <iostream>
#include <conio.h>
using namespace std;
int main()
{
int k;
cin >> k;
if (k >= 0)
{
k *= k;
cout << k << endl;
}
else
{
cout << k << "<0" << endl;
}
_getch();
return 0;}
Program cb;
var
n, i: integer;
begin
write('n = ');
readln(n);
for i := 1 to n do
writeln(i * i * i);
end.
Клавиатура, сканер, граф. планшет
Ответ:
ССССО
Объяснение:
Закодируем следующим образом
Л - 0, Н - 1, 0 - 2, С - 3
Получаем
00000
00001
00002
00003
00010...
Получаем кодировку с основанием 4, где на 1-м месте 0, на втором - 1, на третьем - 2, на четвертом - 3 , на пятом - 4. Видим закономерность, что позиция и номер отличаются на один. Значит на 1023 будет стоят число 1022 переводим в систему с основанием 4. Получаем 33332. Теперь заменяем соответствующими буквами ССССО.
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -10, 99);
a.Println;
var k := n div 2;
if n.IsEven then
a := a[k:] + a[:k]
else
a := a[k + 1:] + Arr(a[k]) + a[:k];
a.Println
end.