1)
var a:array [1..100] of integer;
n,i:integer;
begin
for i:=10 to 99 do begin
a[i]:=i;
if (a[i] mod n=0) then writeln(a[i]);
end;
end.
2)
var a:array [1..100] of integer;
n,k,i,x,y,z: integer;
begin
readln(n,k);
for i:=n to k do begin
a[i]:=i;
x:=a[i] mod 10;
y:=a[i] div 10;
z:=y mod 10;
y:=y div 10;
if (x=y) or (x=z) or (y=z) then writeln(a[i]);
end;
end.
3)
var a,n,an,na: integer;
begin
readln(a,n);
if (a>0) and (b>0) then begin
an:=a*10+n;
na:=n*10+a else writeln('Введены неверные числа!');
end;
end.
картинка
Объяснение:
По горизонтали:
3. Определяет действия табличного процессора при реализации вычислений (формула)
5. Цифрами нумеруются… (строки)
6. Буквами озаглавливаются… (столбцы)
8. Чтобы возвести число в квадрат необходимо применить… (апостроф)
9. Категория функций, к которой относятся функции ИЛИ, И, НЕ (логическая)
11. Первый параметр в функции ЕСЛИ (условие)
12. Документ, состоящий из листов (книга)
14. Название панели, на которой располагаются все вкладки в MS Word (лента)
15. Это может быть датой, числом, текстом и т.д. (значения)
По вертикали:
1. Они бывают смешанные, абсолютные и относительные (формулы)
2. Она состоит из столбцов и строк (таблица)
4. Общепризнанным изобретателем Эл. табл. считается Ден… (бринклин)
6. В самом низу диалогового окна Excel располагается "Строка ..." (состояния)
7. Для написания действующей формулы, пишут знак ... (равно)
10. Название адресации, которая приводит к тому, что при копировании и перемещении формулы адреса ячеек в формуле изменяются в зависимости от их месторасположения (относительная)
13. Запись формулы начинается со знака… (равенства)
16. Место пересечения столбца и строки в электронной таблице (ячейка)