Var
N:integer;
Begin
WriteLn('Введите номер дня недели');
Read(N);
Case N of
1:
Begin
WriteLn('Чтение');
WriteLn('Труд');
WriteLn('Музыка');
WriteLn('Физ-ра');
End;
2:
Begin
WriteLn('Изо');
WriteLn('Русский');
WriteLn('Математика');
WriteLn('Окружающий мир');
End;
3:
Begin
WriteLn('Геометрия');
WriteLn('Краеведенье');
WriteLn('География');
WriteLn('МХК');
End;
4:
Begin
WriteLn('ОБЖ');
WriteLn('Информатика и ИКТ');
WriteLn('Физика');
WriteLn('Химия');
End;
5:
Begin
WriteLn('Биология');
WriteLn('История');
WriteLn('Обществознание');
WriteLn('Алгебра');
End;
6:
Begin
WriteLn('----------');
WriteLn('Литература');
WriteLn('Черчение');
End;
7:
Begin
WriteLn('Воскресенье!!!');
End;
End;
End.
Var
A:integer;
Begin
Write('A = ');ReadLn(A);
if A mod 2 = 0 then WriteLn(A,' - чётное число')
else WriteLn(A,' - нечётное число')
End.
Var
A:integer;
Begin
WriteLn('Введите трёхзначное число');
ReadLn(A);
WriteLn(A mod 10,(A div 10) mod 10,A div 100);
End.
1)Здесь можно применить формулу
<span>2^i = N
</span>2)подставим под N=8
<span>2^i = 8
</span><span> i= 3 (здесь нужно посчитать что 2^3=2*2*2=8)
</span>Ответ: 3 бита одна буква
Var
f:Text;
n,k:integer;
begin
Assign(f,'input.txt');
Reset(f);
n:=0;
while not Eof(f) do begin Read(f,n); Inc(k) end;
Close(f);
Assign(f,'output.txt');
Rewrite(f);
Writeln(f,k); Writeln(k);
Close(f)
end.
2. из математики
1) чтобы сложить два числа с разными знаками нужно из большего слагаемого вычесть меньшее, и поставить тот знак который больше
примеры: -2+6=3
2)чтобы вычесть два числа с разными знаками нужно сложить их и поставить знак минус
-6-8=-14
из русского языка
1)<span>Глаголы </span><span>совершенного вида</span><span> указывают на </span><span>завершенность действия</span><span>, его результат, конец действия или его начало. В неопределенной форме они отвечают на вопрос </span><span>что сделать?</span><span>. </span>
<span>Например: </span><span>добежать, купить, зазвенеть, построить, запеть.</span><span> </span>
<span><span> </span><span>В изъявительном наклонении</span><span> глаголы обозначают действия, которые реально происходят, происходили или будут происходить:</span>
<span>пишу, писал, написал, буду писать, напишу.</span></span>
