1)1100011 2
2)22 10
3)10110111 2
4)127 10
5)1000000000 2
Var i,n:integer;
begin
read(n);
for i := 1 to n do
writeln(i*i*i);
end.
1. Поиск подстроки в строке, возвращает порядковый номер первого символа подстроки в строке
2. Определение длины строки
3. Выбор части строки по заданным порядковым номерам символов
<span>4. Конкатенация (объединение) строк </span>
<span>Остаток от деления на 10 - цифра младшего разряда числа. Делим число на 10 с помощью %, получаем первую цифру (самый младший разряд), делим ещё раз - получаем вторую цифру, и так, пока от числа одна цифра не останется. Ну а потом просто перемножаем всё это дело (все цифры получившиеся).</span>
Var r:array[1..3,1..3] of integer;i,j,n,k,sum:integer; b:array[1..30]of integer;beginrandomize;writeln('Исходная матрица: ');for i:=1 to 3 dobeginfor j:=1 to 3 dobeginr[i,j]:=random(15)-5;write(r[i,j]:3);end;writeln;end;// cумма диагоналиwriteln;for i:=1 to 3 dobeginfor j:=1 to 3 dobeginif i=j then beginwrite(r[i,j]:3);sum:= sum + r[i,j];end elsewrite(' ':3);end;writeln;end;writeln(sum);end.