Разрешающая монитора 640х200. для размещения одного символа в текстовом режиме используется матрица - id597227020220219 от Linamouse 19.02.2022 05:58

Question

Информатика: Разрешающая монитора 640х200. для размещения одного символа в текстовом режиме используется матрица 8х8 пикселей, которая называется знакоместом. какое максимальное количество текстовых строк может быть размещено на экране ?

Linamouse · Accepted Answer

Var
n, m, p, k, sum, x: integer;
s: string;
c, i: byte;

begin
write('Число: ');
read(n);
m := n;
k := 0;
while m <> 0 do
begin
    p := m mod 10;
    K := K + 1;
    m := m div 10;
end;

Str(N, s);
c := 0;
for i := 1 to Length(s) do
    if s[i] in ['0', '2', '4', '6', '8'] then
      Inc(c);

x := n;
sum := 0;
while (x <> 0 ) do
begin
    sum := sum + (x mod 10);
    x := x div 10;
end;

writeln('Количество чисел: ', k);
writeln('Количество четных чисел: ', c);
writeln('Cумма чисел : ', sum);
end.

MOGZ ответил