1 0
1 из 10
10
Мі
t
Е!
пробел
у
Х
Ц
р
0
ti
3
Я
Каждой букве алфавита поставлена в соответствие
пара чисел: первое число - номер столбца, а второе
номер строки кодовой таблицы.
Пользуясь данной таблицей расшифруйте
головоломку: (1,1), (2,2), (1,3), (3,2), (10,3), (3,3), (12,1),
(4,2), (5,1),(4,2), (12,2), (12,1), (1,1),(4,2), (5,1), (12,1),
(1,1), (2,2), (1,3), (3,2), (10,3), (3,3), (5,1), (12,1), (1,2)
(5,1), (3,2), (4,2), (5,2), (1,2), (1,3), (6,3), (4,2), (12,3).
Далее
Завершить ​

Var a,b,c,n:integer;
begin
for a:=1 to 7 do
  for b:=a+1 to 8 do
    for c:=b+1 to 9 do
      begin
      n:=a*100+b*10+c;
      write(n:4)
      end;
end.

var
  i,j,n:integer;
  a:array[1..4,1..5]of real;
begin
for i:=1 to 4 do
  begin
  for j:=1 to 5 do
    begin
    a[i,j]:=random*2-1;
    write(a[i,j]:20:15);
    if a[i,j]>=0 then n:=n+1;
    end;
  writeln;
  end;
writeln('Количество неотрицательных: ',n);
end.

var
  i,j,sum:integer;
  a:array[1..3,1..4]of integer;
begin
for i:=1 to 3 do
  for j:=1 to 4 do
    readln(a[i,j]);
writeln('Массив:');
for i:=1 to 3 do
  begin
  for j:=1 to 4 do
    begin
    sum:=sum+a[i,j];
    write(a[i,j]:4);
    end;
  writeln('sum=':8,sum);
  sum:=0;
  end;
end.

Во-первых, чтобы на странице появилась картинка, она и файл(с расширением .html) должны находиться в одной папке(одном каталоге), например, они находятся на рабочем столе,(кстати, проверьте расширение фотографии, она в программе имеет расширение .gif Если не будет совпадения, она не появиться, даже если в одном каталоге)
Про цвета текста. Фразы заключаем в теге
 <font color="цвет по английски"> текст </font>
Например,Профессиональные интересы  выделим красным(по-англ. red) цветом
Перед фразой Профессиональные интересы  вписываем <font color="red">
После этой фразы вписываем (закрываем тег font) </font>
Можете попробовать с другими цветами вместо