Контрольные вопросы 1. Что в компьютерном тексте - вопрос №1648113512 от uliana3murrr 24.08.2020 12:32

Question

Информатика: Контрольные вопросы 1. Что в компьютерном тексте называется шрифтом? 2. Что такое гарнитура шрифта? 3. Что называется кеглем? 4. В чем измеряется кегль? 5. Чему равен пункт и по какой системе он измеряется в российской полиграфии? 6. По какому параметру различаются шрифты одной гарнитуры? 7. Каким образом шрифты различаются по стилю? 8. Какие возможные начертания одного шрифта вы знаете? 9. Какой комбинацией клавиш открывается окно Шрифт? 10. Какой комбинацией клавиш включается и выключается курсив?

uliana3murrr · Answer

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
var a:=MatrixRandom(7,7,0,9);
var k:=0;
for var i:=0 to 6 do begin
    for var j:=0 to 6 do begin
      Write(a[i,j]:3);
      if a[i,j] in [1..5] then Inc(k)
      end;
    Writeln
    end;
Writeln('Кол-во элементов на [1,5]: ',k)
end.

Тестовое решение:
2 1 7 3 3 2 7
9 2 9 2 0 5 5
4 2 6 9 4 6 0
1 0 3 5 4 5 9
6 3 6 0 2 0 8
0 8 4 3 2 1 8
6 0 4 4 5 4 0
Кол-во элементов на [1,5]: 27

Вариант "совсем для школы"

const
n=7;
var
a:array[1..n,1..n] of integer;
i,j,k:integer;
begin
Randomize;
k:=0;
for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=Random(10);
      Write(a[i,j]:3);
      if a[i,j] in [1..5] then Inc(k)
      end;
    Writeln
    end;
Writeln('Кол-во элементов на [1,5]: ',k)
end.