R(0) = 0
R(1) = 0
R(2) = 1
R(3) = R(2) + R(0) + R(2) = 1 + 0 + 1 = 2
R(4) = R(3) + R(1) = 2 + 0 = 2
R(5) = R(4) + R(2) + R(3) = 2 + 1 + 2 = 5
R(6) = R(5) + R(3) = 5 + 2 = 7
R(7) = R(6) + R(4) + R(4) = 7 + 2 + 2 = 11
R(8) = R(7) + R(5) = 11 + 5 = 16
R(9) = R(8) + R(6) + R(5) = 16 + 7 + 5 = 28
<span>R(10) = R(9) + R(7) = 28 + 11 = 39</span>
Program pr1;
var
a,i:integer;
p:int64;
begin
p:=1;
readln(a);
for i:=a to 20 do
p:=p*i;
writeln(p);
end.
Ответ:
Герц. Международное обозначение Hz
В характеристиках процессоров применяется размерность Гигагерцы. это 10⁹ герц.
Int get_lessons(int week){
if(week < 1 || week > 7) return 0; // Если ввели не номер дня недели
else if (week == 1) return 6;
else if (week == 2) return 6;
else if (week == 3) return 6;
else if (week == 4) return 6;
else if (week == 5) return 7;
else if (week == 6) return 0;
else return 0;
}
Если я правильно понял условие, то...
var a,b,c:integer;
integer;
begin
readln(a,b,c);
If (a+b<100) or (a+c<100) or (b+c<100) then
writeln(1)
else
writeln(0)
<span>end.</span>