используется div (k;(10**n))=ответ
const n=10;
var a,b:array[1..n] of integer;
i: integer;
begin
for i:=1 to n do
begin
a[i]:=random(10);
write (a[i]:3)
end;
writeln;
for i:=1 to n do
begin
b[i]:=random(10);
write (b[i]:3)
end;
writeln;
for i:=1 to n do
begin
b[i]:=a[i];
write (b[i]:3)
end;
writeln;
end.
В программе для каждого из трёх введённых слов подсчитывается количество одинаковых букв, стоящих рядом.
Значения переменных после выполнения приведенного фрагмента программы:
slovo='ИНФОРМАТИКА'
n=11 (длина последнего слова)
k=0
На экран будет выведено:
no
yes
no
Номер 6.
-121 т.к.
n<3, выводится -1. Переноса на следующую строку нет.
Процедура вызывает себя с аргументом n+3. n+3<3 (2<3) - выводится 2. Данная процедура (вызванная первой) вызывает себя также с аргументами n+3 и n+2. Но они будут не меньше 3 и ничего не произойдет.
Процедура вызывает себя с аргументом n+2. n+2<3 (1<3) - выводится 1. Данная процедура (вызванная первой) вызывает себя также с аргументами n+3 и n+2. Но они будут не меньше 3 и ничего не произойдет.
Номер 7.
1392613
Рассуждения полностью аналогичны предыдущему номеру. Проще всего нарисовать дерево со всеми вызовами процедуры либо просто написать программу.