1* 1 = 1
11 * 11 = 121
111 * 111 = 12321
1111 * 1111 = 1234321
11111 * 11111 = 123454321
то есть в произведении сначала цифры от 1..N, а потом обратно до 1, где N - количество цифр в множителях
P.S Программанаписна для Pascal.
program chislo;
var
n, s, k :real;
begin
writeln('Введите число: ');
read(n);
if n>=0 then
begin
s:=sqrt(n);
writeln('Квадратный корень числа: ',s);
end
else
begin
k:=sqr(n);
writeln('квадрат числа: ',k);
end;
end.
В слове ЗИМА обозначаем буквы их порядковым номером: З - девятая буква алфавита, И - 10, М - 14, А -1.
Получаем последовательность 9 10 14 1.
ИНТЕРНЕТ.
Букву И сдвигаем на 9 букв, получаем С,
букву Н сдвигаем на 10 букв, получаем Ч
букву Т сдвигаем на 14 букв, получаем А (так как сдвиг на 13 это буква Я, алфавит начинается заново, 14 будет буква А)
букву Е сдвигаем на 1 букву, получаем Ж (если в алфавите Ё не считается)
Букву Р сдвигаем на 9 букв, получаем Щ,
букву Н сдвигаем на 10 букв, получаем Ч
букву Е сдвигаем на 14 букв, получаем У
букву Т сдвигаем на 1 букву, получаем У
ИНТЕРНЕТ = СЧАЖЩЧУУ
КОМПЬЮТЕР
букву К сдвигаем на 9 букв, получаем У
букву О сдвигаем на 10 букв, получаем Ш
букву М сдвигаем на 14 букв, получаем Ъ
букву П сдвигаем на 1 букву, получаем Р
букву Ь сдвигаем на 9 букв, получаем Е
букву Ю сдвигаем на 10 букв, получаем З
букву Т сдвигаем на 14 букв, получаем А
букву Е сдвигаем на 1 букву, получаем Ё
букву Р сдвигаем на 9 букв, получаем Щ
КОМПЬЮТЕР = УШЪРГЗАЁЩ
АЛГОРИТМИЗАЦИЯ
букву А сдвигаем на 9 букв, получаем И
букву Л сдвигаем на 10 букв, получаем Х
букву Г сдвигаем на 14 букв, получаем Р
букву О сдвигаем на 1 букву, получаем П
букву Р сдвигаем на 9 букв, получаем Щ
букву И сдвигаем на 10 букв, получаем Т
букву Т сдвигаем на 14 букв, получаем А
букву М сдвигаем на 1 букву, получаем Н
букву И сдвигаем на 9 букв, получаем С
букву З сдвигаем на 10 букв, получаем С
букву А сдвигаем на 14 букв, получаем Н
букву Ц сдвигаем на 1 букву, получаем Ч
букву И сдвигаем на 9 букв, получаем С
букву Я сдвигаем на 10 букв, получаем И
АЛГОРИТМИЗАЦИЯ = ИХРПЩТАНССНЧСИ
begin
var a := MatrRandom(4, 3, -99, 99);
a.Println(4);
a.ElementsByRow.Where(p -> p > 1).Count.Println
end.