Pascal ABC
Const
N=30;
Var
A:array[1..N]of byte;
i:byte;
Begin
For i:= 1 to N do
Begin
A[i]:=random(2);
Write(A[i],' ')
End;
WriteLn;
For i:= 1 to N do
Begin
if A[i]=0 then A[i]:=1
else A[i]:=0;
Write(A[i],' ')
End
End.
<span>Уточнили бы сразу что это тесты про Ворд
Какой раздел ленты отвечает за форматирование шрифта?
А.Главная
Что такое кегль?
В.Размер шрифта
Что такое гарнитура ? (вообще это группа шрифтов объединенная схожим начертанием, потому два ответа, так как вид и стиль почти синонимы)
А.Вид шрифта
Д.Стиль шрифта
</span>
Ответ:
program tochka;
var x,y:real;
begin
writeln('Input x,y');
read(x,y);
if (x*x+y*y>4) and (y<x) and (x<2) then writeln ('YES')
else
writeln('NO');
end.
32*4*60с*1*част.дискр(ЧД)=15000*1024*8 бит
ЧД=15000*1024*8/(32*4*60*1)=16000Гц=16Кгц
Ответ:
k = int(input("Введите количество карандашей (< 32000): "))
a = int(k / 13)
print("целых коробок: " )
print(a)
b = k - a*13
print("карандашей без коробки: ")
print(b)
Объяснение: