Почему принтер не печатает чёрным цветом при цветной печати? Пояснение: когда я выбираю цветную печать, то чёрный цвет не пропечатывается, только цветной, хотя раньше такого не было. Если же печатать в черно-белом формате, то чёрный цвет хорошо пропечатывается

👇

Открыть все ответы

Ответ:

polina11111334944849

24.08.2021

Сначала код без комментариев:

Var
S:longint;
i:integer;
A:byte;

Begin
S:=0;
Repeat
   Read(A);
   if (A mod 2 <> 0)and(A mod 7 = 0) then S:=S+A;
Until A = 0;
WriteLn('S = ',S);
End.

Теперь объяснение каждой строки:

Var
S:longint;
i:integer;
A:byte; // В эту переменную будет вводится число с клавиатуры. Тип Byte может принимать значения от 0 до 255. Поэтому его как раз хватит.

Begin
S:=0; // Тут будет храниться сумма, поэтому переменную следует сперва обнулить.

Repeat // далее начинается цикл
   Read(A); // эта команда каждый раз считывает с клавы число, и записывает его в переменную A.

   if (A mod 2 <> 0)and(A mod 7 = 0) then S:=S+A; //тут проверяется 2 условия, и если они выполняются - к переменной S прибавляется значение переменной А
   1 условие: число нечётно, то есть остаток от деления его на 2 не равен нулю (A mod 2 <>0)
   2 условие: Число кратно 7, то есть делится без остатка на 7, то есть остаток от деления равен нулю (A mod 7 = 0)

Until A = 0; // Цикл повторяется до тех пор, пока введённое с клавы число не будет равно нулю (A = 0)

WriteLn('S = ',S); // Тут выводится искомая сумма
End.

4,7(70 оценок)

Ответ:

ElizavetaBro34

24.08.2021

var a: array[1..3] of array[1..4] of string;

Length(s): возвращает длину строки s;

Copy(s, p, n): возвращает подстроку строки s длины n с позиции p;

Delete(s, p, n): удаляет из строки s n символов с позиции p;

Str(x, s): переводит число x в строку и сохраняет результат в s.

Типизированные файлы - файлы, состоящие из компонентов одного типа, число которых заранее не определено.

Нетипизированные файлы - файлы, где информация записывается и считывается блоками определенного размера, в них могут храниться данные любого вида и структуры.

Текстовые файлы - файлы, состоящие из любых символов. Они организуются по строкам, каждая из которых заканчивается символом "конец строки".

4.а)

$(1010.11)_3=(1*3^{-2}+1*3^{-1}+0*3^0+1*3^1+0*3^2+1*3^3)_{10}=(\frac{1}{3^2}+\frac{1}{3^1}+0+3+27)_{10}=(\frac{1}{9}+\frac{1}{3}+30)_{10}=(30\frac{4}{9})_{10}$

б)

$(13.146)_8=(1*8^1+3*8^0+1*8^{-1}+4*8^{-2}+6*8{-3})_{10}= (8+3+0.125+0.0625+0.01171875)_{10} = 11.19921875_{10}$

$0.19921875_{10}=0.33_{16}$

$11_{10}=B_{16}$

$B_{16}+0.33_{16}=B.33_{16}$

5.а) $34_{10}=100010_2\\12_{10}=1100_2\\\boxed{}\boxed{}100010\\\boxed{}\boxed{}001100\\======\\\boxed{}\boxed{}101110\\\\101110_2=46_{10}$

ответ: 46.

б)

$14_{10}=1110_2\\8_{10}=1000_2\\\boxed{}\boxed{}\boxed{}1110\\\boxed{}\boxed{}\boxed{}1000\\=====\\\boxed{}\boxed{}\boxed{}0000\\\boxed{}\boxed{}0000\\\boxed{}0000\\1110\\=====\\1110000\\\\1110000_2=112_{10}$