1 var
2 i:integer;
<span>3 begin
4</span> for i:=0 to 10 do writeln('2 x ',i:2,' = ',2*i:2);
5 end<span>.</span>
//PascalABC.Net 3.2
begin
var time:=readinteger('Введите время суток: ');
if time in [0..5] then write ('Ночь')
else if time in [6..11] then write ('Утро')
else if time in [12..18] then write ('День')
else write ('Вечер');
end.
Деление любого числа на 13, затем на 11, затем на 7 равносильно делению на 1001 (13*11*7). Любое трехзначное число при умножении на 1001 даст это же число записанное два раза, т.к. умножение на 1001 можно записать как:
abc*1001=abc*1000+abc*1=abc000+abc=abcabc (где a,b,c - любые цифры)
Отсюда любое шестизначное число, состоящее из двух одинаковых трехзначных, при делении на 1001 даст трехзначное, из которого оно и состоит.
Формулы
1) a+a+a \ 3
2)нужно знать ср. арифм. и 1 число
10000, 1*2 в 4 степени, 16 в 10тичной
